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EDITORIAL 


6502 FORTH is ready for distribution! I alsa 
have seven articles on 6502 FORTH enhancements for 
future issues. One of the articles even describes 
how to add machine language monitor-like functions 
to 6502 FORTH! That really drove home the point 
to me that FORTH is a complete programming system! 


Issues1-6 of the User Notes have been com- 
pletely re-typed and are now going in to layout. 
The typing took longer than we expected so I can't 
announce back issues as being ready yet. If you 
would like immediate notification of back issue 
availability (issues 1-6) please send us a self 


addressed stamped envelope. As soon us we are 
ready to take orders, we will let you know the 
price. Your patience is appreciated, 


I don't believe price alone should be the de- 
termining factor in purchasing computers software 
and equipment. This seems to be the case, though, 
with most of the hobbyists I have spoken with. Con- 
sumer education seems to be the way to turn this 
around. 


In an upcoming issue, I plan to present com- 
Parison charts for all the 6502 assemblers which 
are available and another one’ for the 6502 disk 
systems, 


Hopefully, this will give us all an overall 
picture of what we're really getting for our bucks. 


—Whats Happening ———— 


application notes to their already substantial 
array of system documentation, 


No. R6500 NO8 RS-232C INTERFACE FOR AIM-65 
R6500 NO9 INTERFACING R6500 MICROPROCESSOR 

TO A FLOPPY DISK CONTROLLER. 

R6500 N11 INTERFACING KIM~4 TO AIM-65 


R6500 N12 A CRT MONITOR OR TV INTERFACE FOR 
AIM~-65 


(The last one is particularly interesting as 
it presents a complete hardware and software de- 
sign for a 16 chip 40x16 video interface using the 
Motorola (and shortly Synertek's) 6845 CRT control- 
ler chip. This design looks to be useable on ANY 
6502 based system with a 1 MHz clock. Parts costs 
should be around $100). 


These application notes are available at no 
charge from: 


ROCKWELL MICROELECTRONIC DEVICES 
MARKETING SERVICES 
PO BOX 3669, RC55 
ANAREIM, CA 92803 





6502 USER NOTES is published bimonthly by 
Eric C. Rehnke (POB 33093, N. Royalton, Ohio 
44133 (216-237-0755). Subscription rates for 
Volume 3 are $13.00 (US and Canada) and $19.00 
elsewhere, One subscription includes all 6 is- 
sues of a volume and cannot carry over part way 
into the next volume. If less than a full vol- 
ume is desired, remit $2.50 for each issue 
wanted. No part of 6502 USER NOTES may be 
copied for commercial purposes without the 
express written permission of the publisher. 
Articles herein may be reprinted by club news- 
letters as long as proper publication credit 
is given and the publisher is provided with a 
copy of the publication, 





@ COPYRIGHT 1979 Eric. C. Rehnke 


Rockwell also announced their AIM-65 Expan- 
sion Motherboard. This 5~slot backplane is bus 
compatible with the SYSTEM/65 as well as the Mot- 
orola Exorciser. Its priced at $195. For a com- 
plete product description which includes a complete 
schematic, ask for document number 29650 N57, 


SYNERTEK has dropped the retail price of the 
SYM to $239! 


They've also introduced several new chips 
which should help to bolster the 65XX family imn- 
age. One of these chips, the 6551 ACIA, is men- 
tioned in the 65XX FAMILY CHIP STUFF section else- 
where in this newsletter. The other new chips, 
the 6545 CRT controller and the floppy dise con- 
troller are not into production yet and will be 
mentioned more when they are real, 


HDE has been shipping their mini-floppy sys- 
tems and their cassette based assembler/editor 
package, 


A number of firms, including HDE,have been 
caught in the industry wide LS (low power Schotky) 
component shortage which has been playing OEM's 
for most of the summer. 


Before ordering anything that might contain 
LS components, it might be worth a phone call or a 
letter to the supplier to see what the situation 
is. This shouldn't be regarded as a blanket excuse 
for slow delivery times from suppliers but could 
be a possible explanation. 


: An outfit called Perry Peripherals is adapt- 
ing the HDE mini floppy system to the S-100/KIMSI 
system. Should have more info by next issue, 


We now have a European distributor! European 
stores can contact: 


ING. W. HOFACKER GMBH 
8 MUNCHEN 75 
POSTFACH 437 
WEST GERMANY 


An aquaintance of mine and a fellow ex-MOS 
Technology employee, Ray Bennett, President of RNB 
Enterprises, called me the other day with some 
disturbing news. Ray indicated that he noriced a 
very substantial decrease in his mail order busi- 
ness when the news of the World Power Systems fraud 
became known, 


It's the old story of a few unsavory types 
messing things up for the rest. 


LOCAL 6502 ORIENTED USER GROUPS 


LICA (Lower Tseauo Comperer Assoc.) 
#6 Brookhaven Dr. 
Rocky Point, NY 11778 


SAN FERNANDO VALLEY 6502 USERS CLUB 

meet at 8:00 PM on the 2nd Tuesday of each 
month at Computer Components of Burbank, 
3808 West Verdugo Ave, Burbank CA 91505. 
Contact Larry Goga (3816 Albright Ave, Los 
Angeles, CA 90066, 213-398-6086), for more 
info. This group also publishes a monthly 
newsletter which is available for $2.00 a 
year. Useful stuff! 


WAKE--Washington Area KIM Enthusiasts--meet 
each month at the McGraw-Hill Continuing Ed- 
ucation Center in Washington, D.C. to study 
operation, expansion, and applications of KIM 
1 microcomputers. Meetings are at 7:30 

on the third Wednesday of every month. 


For a copy of the current WAKE newsletter, 
send a stamped, self-addressed envelope to 
WAKE, c/o Ted Beach, 5112 Williamsburg Blvd., 
Arlington, VA 22207, or phone (703) 538~2303. 











FOUR PART HARMONY (cheap! 


KIM-1 MUSIC PROGRAM 


by Richard Martin 
(A) ABSTRACT 


The KIM-1 music program "plays" music in four 
part harmony on an unexpanded KIM~] micro-computer, 


(B) EQUIPMENT REQUIRED: 


KIM-l module with power supply, four (4) 150K 
ohm resistors, a 2.2 uF capacitor, an audio ampli- 
fier, and speaker. Refer to Figure 1 for hardware 
connection. 


(C) OPERATION 


The program causes a series of 75 microsecond 
pulses to be output on each of four PIA terminals 
(PAO-PA3). The frequency of the pulse waveform 
on each terminal is independently controlable by 
data stored in the KIM-l memory. The pulses are 
mixed together by a simple resistance network and 
coupled through a capacitor to an ordinary audio 
amplifier. 


(D) USAGE 


The program accepts three different types of 
coded notes: normal, compressed, and branch. 


1s0k (abl Atasetor) 





Figure 41. 


(1) Normal notes: 


These notes require two bytes of storage. 


Ist byte 2nd byte 


frequency code 





must be =0 


Frequency code-Determines pitch of note. Re- 
fer to Figure 2 for a list of 
pitches and their respective 
codes. Notice that a frequen- 
cy code of 00 (hex) specifies 
a rest (no tone generated). 


Duration code-Determines length of note. The 
note will be held for the num- 
ber of counts specified by the 
duration code. The codes in 
Figure 3 are recommended for 
most work, 


Examples: 33 08 causes middle C to be played 


for eight counts. (eighth note) 
2—£ 20 causes A above middle C to be 


played for 32 counts, (half note) 


MIDDLE C 33 (-5.47) 


After the note is over, the playing program 
goes to the next consecutive byte in storage to 
fetch the next note, 


79 = «{-1.19) 





9 GPE 
6c (=4,42) 





66 (-5.47) 
5B (-7.91) 
51 = (-6.38) 
ke (+3.92) 
4h isu) 


3 (413.17) 


36 (-4. 42) 


2D (+11.21) 





28 (415.12) 





26 = (+992) 


22 (-3.51) 








1E (443.16) 


Frequency codes are in hexadecimal. Numbers 
in () are the relative tuning in cents. This is 
to provide some idea of how out~-of-tune the notes 
are (a pitch difference of 6 cents can be detected 
only by very sensitive ears). 


(nae 


(2) Compressed notes: 


If several notes with the same duration 
are to be played in succession, they can be short- 
ened to one byte each, conserving considerable 
amounts of memory space. 


The pitch will change to that specified 
by the new frequency code. The duration code, how- 
ever, will remain the same as it was for the last 
hote, 





Example: 


This is how the C scale would be coded: 


—4 


66 20 
58 10 
D1 
cc 
C4 
BC 
B6 
33 40 


(3) Branch notes: 


Branch notes are similar to normal note 
however, instead of going to the next consecutive 
address in memory for the next notes, the branch 
note causes the program to jump to a new address 
for the next note. 
in storage. 


lst byte 


Pfs] sfs[s] 2) 3] | 
| ener 


frequency code 
must be =O 









3rd byte 


Glelsletslalalo)] Ghels es eto 
LSB S 
new enna eects eee 


When the branch note is over, the next 
note played will be the one with its lst byte at 
the new address. Branch notes are useful for mak 
ing a song repeat, and for skipping unusable add- 
resses in memory, 


4th byte 


= #1 = £8 


g2 


- 
, 
Ds 


Sm 


D4 


16 o 


OS 


a 


87 


1c ©. 


a 


Figure 3 


Branch notes require four bytes 


"t 


28 


36 


38 


62 


it 


76 


(E) PROGRAMMING TECHNIQUES 


(1) Locations 0000~00CB and 0100-010F 
are used by the playing program. All other loca~ 
tions may be used for music data, Music data norm- 
ally resides from 0110-03FF. 


(2) The stack pointer should always be 
set to OA before loading music data. Otherwise, 
the stack may overwrite the music data. 


(3) Keep in mind that the playing pro- 
gram is capable of playing four independent melo- 
dies simultaneously, The melodies or "parts" 
should be placed one after another in memory. 


(4) Once all four parts have been load- 
ed, the playing program's internal pointers and 
counters must be initialized as followw: 


ADDR 

0008 LSB 
Starting address-1 for the first part 

0009 MSB 

000A LSB 
Starting address-1l for the second 
part 

000OB MSB 

oo0c LSB 
Starting address-l for the third 
part 

00O0D MSB 

OOOE LSB 
Starting address-1 for the fourth 
part 

OOOF MSB 


Locations 0010-0017 must be set to Ol. 
The tempo is set at location 0007, Tempos range 
from 10-FF with FF being the slowest. 


The playing program can now be started 
at location 0000. 


(5) The playing program "slurs" the 
notes together (no seperation between the notes). 
Therefore: 


cannot be coded as : 44 10 or 44 10 


44 10 Cc 


To make the notes sound seperate, remove one count 
from the first note and insert one count of rest 
between the two notes. The example above would 


then be coded as: 44 OF 
00 «(Ol 
44 10 


Similar techniques may be employed to give stac- 
cato notes. 


(6) An optional patch may be inserted 
into the program to make the fourth part sound an 
octave lower: 


(refer to program listing) 


Change loc. 009C from 40 to CC. Then Add: 


00cc A6 16 LDX DURD 
OOCE E4 17 CPX XDURD 
o0D0 DO 04 BNE Q 
00D2 06 26 ASL PD 
00D4 06 27 ASL XD 
00D6 4C 40 00 Q JMP TONE 


The patch occupies locations OOCC-00D8. Similar 
routines may be written for the other parts if 
necessary. 


HItE. ASSEMBLER REV 2.0 








LINE# ADR OBJECT SOURCE FAGE 0001 
0010 2000 $KIM-1 MUSIC FROGRAM 
0020 2000 #WRITTEN BY RICHARD MARTIN 5/76 Wy 
© 0030 2000 ; i 
0040 2000 #170 ANID TIMER ALDRESSES 
0050 2000 FIA =$1700 #OUTPUT REGISTER W 
0040 2000 DDR =$1701 #LATA DIRECTION REGISTER OQ 
0070 2000 TIMER =$1707 sINTERVAL TIMER { 
0080 2000 ; 
0090 2000 sINITIALIZE FIA AND START ™ 
0100 2000 *=$0 NY 
0110 0000 +OFF 2000 OY 
0120 0000 a® OF START LDA #$F ; 
0130 0002 af 01 17 STA DIR may 
0140 0005 BO 49 BNE NEW a 
0150 0007 : 4 N 
01460 0007 #Z PAGE VARIABLES ANI CONSTANTS 
0170 0007 ; 
0180 0007 TEMPO x*=K+1 
0190 0008 FTAL  K=K+1 #CURRENT NOTE POINTERS Se 
0200 0009 PTAH k=xK+1 ~N 
0210 000A FTBL | k=k+1 oe 
0220 0008 FTRH kK=x+1 g 
0230 o00c FICL  k=x+1 
0240 ooon PICH 9 k=xk+1 
0250 000E PTDL ok=KHL 
0240 O000F PTIH 9 k=x+1 
6270 0010 DURA 9 -k=k+1 #NOTE LIURATION COUNTERS 
0280 0011 XNURA  k=*+1 #CURRENT NOTE [tURATION Lad 
0290 0012 DURE | (k=xk+41 
0300 0013 XDURE  k=K+1 
0310 0014 DURC -xk=k+1 K 
0320 0015 XNURC  xX=*+1 
0330 0016 BURD | k=xk+41 nee 
0340 0017 XDURD x=*+4 
0350 0018 RSTA = -K=KH1 ;USEL FOR OUTFUT SWITCHING 
03460 0019 O14 X01 +BYTE $4 
0370 001A RSTBok=k+1 
0380 OO1K 02 X02 /BYTE $2 = 
0390 0016 RSTC 9 -kK=K+4 
0400 OO1n 04 KO4 -BYTE $4 
0410 O01E RSTD k= k+4 LJ 
0420 OO1F 08 x08 »RBYTE $8 
Ca 0430 0020 PA KoK+L sPITCH COUNTERS Cf) 
0440 0021 XA k= KHL #CURRENT FITCH 
0450 0022 FR K=K+1 
0460 0023 XB KEK+1 
0470 0024 PC k=K+1 
0480 0025 XC x=K+1 
0490 0024 Flt K=K+1 afin | 
0500 0027 xn K=K+ 
6510 0028 FE ROL sBYTE $FE #USEL FOR OUTPUT SWITCHING <_.. 
0520 0029 Fh RO? /BYTE $FIl 
0530 002A FB RO4 +BYTE $F E eee 
0540 002R F7 ROR sBYTE $67 
0550 0020 ; 
0560 0020 #RESET AND DELAY ROUTINES 
0570 $FOR TONE GENERATION 
0580 ; ell 
0590 25 28 TELA ANE ROL #TURN OFF OUTFUT A 
0600 EA NOF #WASTE MORE TIME <a 
0610 002F no 19 ENE RA 3JUME" BACK TO MAIN ROUTINE 
0620 0031 25 29 NELK AND RO2 
0630 0033 EA NOF Cf? 
0640 0034 hO 1E BNE RE 
0650 00746 25 2A DELC ANI RO4 
0660 0038 EA NOP —_.. 
0670 0039 LO 23 BNE RC 
0680 003R 25 2K DELD ANE! ROB 
0690 0030 EA NOF 
0700 OO3E LO 28 ENE RE 
C710 0040 7 
0720 0040 3MAIN TONE GENERATION ROUTINE 
0730 0040 ; 
©0740 0040 TONE DEC PA #DIECREMENT FITCH CNTR ’A’ 
0750 0042 ENE TELA 
0760 0044 LUX XA #RESTORE FITCH COUNTER eal 
0770 0046 STX FA 
0780 0048 ORA RSTA 
6790 004A RA HEC PH —_ 
0800 00at BNE DELE 
0810 004E LUX XB L&D 
0820 0050 STX PR 
0830 90052 ORA RSTR 
0840 9054 RE DEC FC C2 
OBSO 0056 ENE DELG 





0860 0058 Aé 25 LOX xc 


























0870 005A 86 24 STX FC 
0880 OO05C OS iC ORA RSTC 
0890 O05E Cé 26 RC DEC PD 
0900 0060 DO Bg BNE DELD 
0910 0062 Aé 27 LDX xD 
0920 0064 86 26 STX FD . 
0930 0066 05 1E ORA RSTD € 
0940 0068 8D 00 17 RD STA FIA #UPDATE ALL OUTPUTS 
0950 006B 2C 07 17 BIT TIMER 3HAS AN INTERVAL PASSED? 
0960 006E 10 DO EPL TONE 3NO» KEEF GENERATING TONES 
0970 0070 ' 
0980 0070 $THIS ROUTINE UPDATES THE NOTES 
0990 0070 i 
1000 0070 A2 00 NEW LDX #60 SINITIALIZE X-INDEX REG 
1010 0072 16 10 NEW1 DEC DURArx $DECREMENT DURATION CNTR 
1020 0074 po 18 BNE NXT 3G0 ON TO NEXT 
1030 0076 20 C3 00 JSR INPTLA $GET NEXT PITCH 
1040 0079 30 23 BMI SMBUR SIF MSH=1y USE SAME DURATION 
1050 007K 95 21 — STA XA9X sSTORE THE FITCH 
1060 0071 95 20 STA PA»Xx 
1070 007F FO 02 BEQ NEW2 $IF REST, STORE 00 IN RSTA 
1080 0081 BS 19 LIA X01+X SOTHERWISE? USE X01 
1090 0083 95 18 NEW2 STA RSTArX 
1100 0085 20 C3 00 JSR INFTLA $GET NEXT DURATION 
1110 0088 30 25 BMI EBRNCH 3IF MSH=1, NOTE IS A BRANCH 
1120 008A 95 11 STA XLURArX $STORE THE IIURATION 
1130 008C 95 10 NEWS STA DURArx 
1140 OO8E EB NXT | INX $SET ’X’ TO UPDATE NEXT NOTE 
1150 008F EB TNX 
1160 0090 £0 08 CPX #88 SIF ‘X’=8y THEN» 
1170 0092 DO DE BNE NEW1 3WE ARE DONE 
1180 0094 AS 07 LIA TEMPO #INITIALIZE THE TIMER 
1190 0096 8 07 17 STA TIMER 
1200 0099 A9 10 LIA #$10 FINITIALIZE THE ACCUMULATOR 
1210 009B 4€ 40 00 JME TONE $RESUME TONE GENERATION 
1220 009E $ 
1230 009E #ROUTINE FOR COMPRESSED NOTES 
1240 009E ; 
1250 009E 29 7F SMNUR ANI #$7F }SET MSE =0 
1260 0080 95 21 STA XArX $STORE THE FITCH 
1270 00A2 95 20 STA FArX 
1280 0004 FO 02 REQ SMDU2 sIF REST, STORE 0 IN RSTA 
1290 00A6 BS 19 LIA XO19X sOTHERWISE, USE X01 
1300 00AS 95 18 SMIIU2 STA RSTArX DEMO TUNE TABLE 
1310 OOAA BS il LIA XIURA®x SUSE THE IURATION FROM ; 
a : : This song table occupies 
1320 ooAG 4C 8C 00 JMF NEW #THE LAST NOTE estabecns s0110-$0318. Before 
zi wis ha ae ? ‘ loading this song table in by 
pe beet Seen ROUTINE hand or by caesette, BE SURE 
1360 OOAF 29 7F FRNCH AND #$7F #SET MSE =0 palit GPa eh ata it ce 
1370 OOR1 95 11 STA XIIURArx #STORE THE DURATION ens (ene ids fe eaoores 
1380 O0OB3 95 10 STA LURArX Sat peepee ie BESET 
1390 OOKS 20 C3 00 JSR INFTLA $GET LSE OF BRANCH ADDRESS Dea cee gaye eer aE 
1400 O0OB8 48 TAY $MOVE IT TO ’Y’ TEMPORARILY Weta ore che nade ne anes 
1410 00R9 20 C3 00 JSR INFTLA #GET MSR OF BRANCH ALIDRESS voy aan dane Geen goat Baul 
1420 OOBC 95 09 STA FTAHyX sSTORE IT IN HI ORDER FNTR Been sn cabin y may 
1430 OOBE 94 08 STY FTAL YX ;STORE LSE OF BRANCH ADDRESS Peer tengo nt 
1440 00CO 4C BE 00 JME NXT 
1450 00C3 $ Oh yes, so that the music 
1460 00C3 #SUBROUTINE TQ INCREMENT POINTER program knows where the music 
1470 00C3 FAN LOAD ACCUMULATOR FROM THE ADDRESS table is, you must fill in the 
1480 00C3 #HELD BY THE POINTER following data in the music 
1490 00C3 , program's pointer locations: 
1500 00C3 Fé 08 INFTLA ING PTAL +X $INC LOW ORDER BYTE OF FNTR $0008 OF 01 
1510 OOCS nO 02 BNE INFT2 31F THERE IS A CARRY - < oboe EF 01 
1520 00C7 Fé OF INC PTAH?X #THEN INC HI ORDER BYTE $000C 4F 02 
1530 00C9 AL 08 INFT2 LDA (FTAL?X) #LOAD ACC FROM INDIRECT S000E CF 02 
1540 OOCH 60 RTS $FOINTER ANI! RETURN 







Y 

; Ol 346 OF 00 01 36 08 56 20 SEK 10 
FINISH ENT! 21 2 2 51 30 44 10 39 07 00 61 39 OF 00 O14 
? 07 06 O1 44 OF 00 O1 44 07 00 O1 
230 36 20 39 20 48 10 44 08 C8 4C 20 51 40 40 10 2R 
110 48 07 00 O01 48 OF 00 01 48 07 00 O01 48 O8 BC ALI 240 0B A4 ABR B6 CO 44 88 CF O41 3F 3D SF BF 7E 3C R9 
120 24 07 00 Ot 24 10 28 08 AB 28 20 48 07 00 01 48 250 36 10 R9 C8 D1 fk AL AD BO B64 CO RY 51 08 FY BO 
130 OF 00 01 48 07 00 01 48 08 BO BO AB 2H 38 00 08 260 C8 CO BO RS BO AB AB 20 17 00 01 20 08 30 10 B9 
140 22 OF 00 O1 22 OF 00 01 22 08 R& B3 BO 24 10 3C 270 3C 08 BO BB RY 3C 10 CO CO BE 39 08 BR6 BS BO 39 
150 08 BY 36 10 39 08 B4 28 07 00 O1 28 OF 00 01 28 280 O07 00 01 39 OF 60 O41 39 07 00 O1 40 07 00 01 40 
140 07 00 01 28 08 CO RC RO 2K 40 48 07 00 O01 48 OF 290 OF 00 OL 40 08 36 10 BF RO CO DB AN AL BO BS CO 
170 00 O1 48 07 00 01 48 08 BC AT 24 07 00 01 24 10 2AQ0 9 Sl O08 F9 48 G7 OO O1 48 OF 00 O01 40 O08 BC BS 
180 28 O8 AB 28 20 48 07 00 O1 48 OF 00 01 48 07 00 2RO BS HO 2B 10 Att 30 28 34 OB BY CO 36 20 EO 48 10 
190 O1 48 08 BO BO AS 2B 38 00 O08 20 07 00 O1 20 OF 40 08 C4 CB CB A4 AB RS CO 39 90 4F O2 AP BC ZI 
1AQ 00 O1 20 07 00 O1 20 O08 BO AK AB 24 10 39 08 BS 00 30 24 10 06 40 80 80 80 80 00 38 51 08 48 07 
1BO 8630 20 48 07 00 O1 48 OF 00 OL 48 07 00 01 48 0B 00 O01 48 OF 00 O61 48 07 00 01 48 07 00 O1 48 OF 
1CO BY BO AK 346 28 00 98 OF 01 40 40 40 CO CO 40 00 2F0 00 OL 48 08 00 30 48 10 00 40 80 56 07 00 O1 54 
110 546 20 SK 10 36 30 39 20 51 30 44 10 30 10 36 08 

1EO R9 40 10 CB 36 17 00 01 36 08 44 20 48 30 4C 10 300 OF 00 01 56 07 00 O1 56 07 00 01 S46 OF 00 O1 56 
1FO 51 37 00 O1 S1 O08 30 07 OO O01 30 OF 00 01 30 07 310 O8 00 40 80 80 00 CO CF 02 
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CIRCULAR LIST PROCESSING SUBROUTINES 


. 
Jim Adams 


17272 Dorset 
Southfield, MI 48075 


Did you ever wish you had a stack for data 
storage which wasn't messed up by interrupts and 
subroutine calls? How about a stack where you 
could easily get at the first thing put on instead 
of the last? These circular list (or stack) pro- 
cessing subroutines perform the pointer, data and 
counter manipulations to reduce the above functions 
to subroutine calls. 


A circular list is a block of memory which 
wraps around at the ends (figure 1). The last 
slot and the first slot are next to each other. 
The subroutines use four pieces of information a- 
bout each list. The number of available slots 
tells when to wrap around and when the list is 
full or empty. The current top and next bottom 
point to the data. This information is kept with 
each list in the order shown in figure 2. 


To initialize a block of memory to be used 
as a list put the address of the list in $EC (low, 
high) and the number of slots (n) you want in $EA, 
then JSR INL. Use JSR INLO when n is in register 
A instead of in $EA. The number of slots will be 
set to n and the other three parameters will be 
set to Q, 


To add data to the list, put the address of 
the list in $EB, $EC and the data in $EA, then 
JSR ATL or JSR ABL. Or you can put the data in 
register A and JSR ATLO or JSR ABLO. If the list 
is full the V bit will be set, the list will. re- 





main unchanged and $EA will contain the data. If 
the list is not full the V bit will be clear, $EA 
and register A will contain the data, N and Z will 
reflect the value of the data, and the data will 
be added to the list. 


To remove data from the list, put the address 
of the list in $EB, $EC then JSR RBL or JSR RTL. 
If the list is empty the V bit will be set, If 
the list is not empty V will be clear, $EA and 
register A will contain the data, N and Z will re- 
flect the value of the data and the data will be 
removed from the list, 


This version restricts the list and its par- 
ameters to a page so the maximum number of slots 
in any list is $FC. If you ask for more slots the 
parameters will be overwritten with data. If you 
ask for more slots than remain to the end of a 
page then the extra slots are at the beginning of 
the same page, not the next page. The V bit is 
set with BIT $1A09. This is a lecation in the 
KIM monitor containing a $40, To use the subrou-~ 
tines with SYM or AIM change $1A09 to any location 
where bit 6 is set (e.g., to an RTS location), Lo- 
cation $FC is used for temporary storage. 


Circular lists can be used as first-in first- 
out buffers for asynchronous data transmission, 
queue storage, breadth-first search storage, fail- 
ure sequence analysis, order preserving sorts, 
fixed sequence delays among other things. They 
can also be used like the 650X stack as first~-in 
last-out buffers for depth-first search storage 
and reentrant subroutine storage. 


0620 2000 éZERO FAGE REGISTERS TO FOLLOW 

0025 2000 x= $0 

0036 0000 LATA K=KEL *THIS LOCATION HOLES THE NUMBER 
0035 0001 sOF SLOTS FOR SUBROUTINE ’INL’ OR DATA TO 

0040) 0001 eRE TRANSFERED TO LIST FOR “ARL’ OR “ATL ‘ 

0045 O001 ¢0R DATA TAKEN FROM LIST BY ‘RBL’ OR ‘RTL’. 

0050 60001 

0055 0001 LFTR K=Kt2 FANTIRESS LOW, HIGH OF LIST 

0060 0003 

0064 0003 TEMF =$QO0OFC #TEMPORARY SAVE LOCATION 

0065 0003 §THE LIST SETUF IN MEMORY YS?! 

0070 0003 

0075 0003 5 LIST SLOTS AVAILABLE 1ST BYTE 

0080 0003 ‘ NUMBER USED 2ND BYTE 

0085 0003 ; CURRENT TOF SR RYTE 

0070 0003 ; NEXT BOTTOM 4TH RYTE 

0095 0003 i 1ST SLOT STH BYTE 

0100 0003 5 + . 

O105 0003 # + * 

0110 0003 ; LAST SLOT FAVAIL/4TH BYTE 

0115 0003 5 

0120 00038 sUSE OF CINT)»sY AULRESSING AND FOUR BYTE OVERHEAD 

0125 0003 sMEANS MAX NUMBER OF SLOTS PER LIST IS $FC. 

0130 0003 

O135 0003 FENTRY FOINTS?$ 

0140 0003 ‘ TNLO TNITIALIZE LIST, # SLOTS IN ‘A’ 

O14s 0003 é INL INITIALIZE LIST, # SLOTS IN ‘TATA’ 

0150 0003 5 ATLO CONTENTS OF ’A’ TO TOF OF LIST 

0155 0003 , ATL. CONTENTS OF ‘DATA’ TO TOF OF LIST 

0160 0003 ‘ ABLO CONTENTS OF ’A’ TO BOTTOM OF LIST 

0165 0003 5 ARBL. CONTENTS OF ‘DATA’ TO BOTTOM OF LIST 
0170 0003 5 REL, CONTENTS OF BOTTOM OF LIST TO ‘A’ AND ‘RATA’ 
0175 0003 § RTL CONTENTS OF TOF OF LIST TO ’A’ AND ‘LATA’ 
0180 0003 

0185S 0003 #STATUS: VY BIT 15 SET IF ATTEMFT IS MADE TO ath Ta A 
0190 0003 , FULL LIST OR REMOVE FROM AN EMFTY ONE. 
O195 0003 , V BIT IS CLEAR IF SUCESSFUL TRANSFER OCCURS. 
0200 0003 

O205 0003 K=$2000 

0210 2000 


2000) 85 00 INLO STA DATA 





2002 AOD O00 TNL. LIY #0 

2004 AS 00 LIA DATA 
0230 2006 91 O1 STA (LPTR)+Y 
O235 2008 AX 00 LIA #0 
0240 200A C8 INY 
0245 200R 91 01 STA (LFTR)sY 
0250 2001 CA INY 
O255 200E 1 OL STA (LETR) s¥ 
02460 2010 8 INY 


PINITIALIZE LIST 
sCCUATA) TO 

PNUMBER OF SLOTS USED 
#ZERO TO.os 
¥¢eeNUMBER USED 


96+ CURRENT TOF 





0265 
0270 
0275 
0280 
0285 
0290 
0295 
0300 
0305 
0310 
0315 
0320 
0325 
0330 
0335 
0340 
0345 
0350 
0355 
0360 
0365 
0370 
0375 
0380 
0385 
0390 
0395 
0400 
0405 
0410 
0415 
0420 
0425 
0430 
0435 
0440 
0445 
0450 
0455 
0460 
0465 
0470 
0475 
0480 
0485 
0490 
0495 
0500 
0505 
0510 
OSs 
0520 
OS25 
0535 
0540 
0345 
9550 
0555 
0560 
0565 
0570 
0575 
0586 
o585 
0590 
0595 
0600 
0605 
0610 
0415 
0620 
04625 
0630 
0635 
0640 
0645 
0650 
O65 
0460 
0665 
0670 
0675 
0680 
04685 
0690 
0695 
0700 
0705 
O7 10 





2011 
2013 
2013 
2015 
2018 
201A 
201D 
201F 
2022 
2022 
2025 
2027 
2028 
202K 
2022 
202F 
2032 
2032 
2035 
2037 
203A 
2032 
203F 
2041 
2041 
2043 
2046 
2048 
2049 
204C 
204F 
2051 
2051 
2053 
2055 
2057 
2059 
205A 
205C 
205E 
2060 
2061 
2063 
2065 
2067 
2068 
2069 
2069 
2069 
2069 
2069 
2069 
2069 
2069 
206R 
2061 
206F 
2070 
2072 
2074 
2075 
2076 
2077 
2077 
2079 
207E 
207C 
207E 
2080 
2083 
2084 
2086 
2087 
2089 
208% 
208K 
208R 
208K 
208m 
208F 

2091 

2O9S 
2095 
2096 
2098 
209A 
2096 
20913 
209F 
20A4 

20n3 
2OA4 
2006 
20A7 


91 


8s 
20 
70 
20 
AS 
4c 


20 
70 
cB 
20 
B1 
65 
4c 


20 
70 
20 
20 
AO 
Do 


85 
20 
70 
cs 
20 
20 
AD 


84 


Ad 
Rl 
A4 
18 
Fi 
FO 
Ri 
38 
69 
85 
AS 
8 
60 


AO 
Bl 
FO 
18 
E9 
91 
c8 
B8 
60 


AO 
Bi 
C8 
Si 
no 
2c 
60 
Ag 
38 


LO 


Ri 
no 
84 
AO 
Bi 
18 
Eo 
A4 
no 
Le 
E? 
aa 
Bi. 
18 
69 
A8 
40 


o1 


00 
77 
4E 
8B 
00 
63 


69 
41 


8B 
OL 
00 
65 


69 
31 
Al 


02 
10 
00 
77 
20 


Al 


in 2 


03 


FC 
00 
O1 
FC 


o4 
05 
o1 


00 
OL 
00 


01 
O1 
11 


00 
o1 


00 
O1 


O01 
04 


09 I 


moa 
NRE 


On 
On 
FC 
00 
O14 


00 
FC 
O38 
00 
O14 
O01 


04 


2 
2k 2 


20 


20 


STA (LPTR)sY 3+++NEXT BOTTOM 


ATLO STA DATA sADD TO TOP OF LIST 


ATL JSR FULL sSLOTS AVAILABLE? 
BYS END2 #++eEXIT IF NOT 
JSR POINT 7YESs POINT TO 

PUT LDA DATA ¢SLOT ANT STUFF 
JMP ENDL sDATA 

RBL JSR EMPTY #REMOVE FROM BOTTOM 
BYS EN[!2 sEXIT IF EMPTY 
INY 
JSR POINT sPFOINT TO SI.OT 


GET LDA (LFTR)*Y sAND GET CONTENTS 
STA DATA *TO “TATA’ 
JMP ENDS 

RTL JSR EMPTY sREMOVE FROM TOF 
BYS END2 sEXIT IF EMFTY 
JSR POINTIL *POINT TO SLOT 
JSR GET SAND) GET CONTENTS 
LDY #2 sUPDATE CURRENT TOF 
BNE END! ¢ (UNCONDITIONAL ) 


sang TO BOTTOM 
sSLOT AVAILABLE? 


ABLO STA DATA 
ABL JSR FULL 


BYS ENI2 bEXIT IF NOT 
INY sYES» 
JSR POINTI sFOINT TO SLOT 
JSR FUT SAND STUFF [IATA 
LBY #3 § THERE 
END STY TEMF 
LDY #0 #NUMBER OF SLOTS SAME 
LDA (LPTR)sY sAS POINTER FLUS 17 
LOY TEMF 
cic 
SBC (LPTR)»+Y SIF SO» 
BEG ENT. sRESET POINTER 
LDA (LFTR)»Y sOTHERWISE 
SEC sRECREMENT FOINTER 
ADC #0 


END1 STA LFTR 

ENDS LDA DATA 
CLV 

END2 RTS 


¢SUBROUTINES TO CHECK LIST FULL OR EMFTY. 
9V FLAG IS DET WHEN ANSWER IS "YES", 
3IF ANSWER IS NO» SUBROUTINES INCREMENT 
sOR DECREMENT NUMRER OF SLOTS USED IN 
sANTICIPATION OF A ’PUT’ OR ‘GET’. 
SAT RTS» “Y’ POINTS TO CURRENT TOF FOINTER. 
EMPTY LDY #1 ¢GET NUMBER OF 

LDA (LFTR)»Y §SLOTS USER 


BEG EMPTY1 sBRANCH IS NONE 
cLc sDECREMENT 
SBC #0 SNUMBER USEL 
OUT STA (LFTR)s¥ 
INY ¢TO CURRENT TOF FOINTER 
CLV 
RTS 
FULL LDY #0 sSLOTS AVAILABLE 
LDA (LPTROY §SAME AS 
INY sSLOTS USEN? 
EOR (LFTR)+Y 
BNE INCR yBRANCH IF NOT 


EMPTY1 BIT %1A09 
RTS 
INCR LOA #0 


§SET V FLAG 


+ INCREMENT 


SEC sNUMBER USED 
ADC (CLFTRDY 
BNE OUT § CUNCONIIT TIONAL? 


#SUBROUTINES TO FOINT TO LIST TATA 


FOINT LDA (LPTRI*Y SPOINTS TO SLOT 1 
BNE NOSET ¢RRANCH IF NUT 
STY TEMF #YESy SAVE INDEXy 
Loy #0 iGET NUMBER OF 
LDA (CLETR)yY §SLOTS MINUS 1 
cL_e i(LAST SLOT) 
SBC #0 §THIS ‘HECKEMENTS ¢ 
LEY TEMP sTHE POINTER 
BNE OVER 

NOSET CLO jUECREMENT 


SRC #0 sPOINTER 
OVER STA (LETRO9¥ 


POINTL LEA CLETR) SY sGET FOINTER 


CLC SAND ALD 
ADC #4 sQOFFSET TO 
TAY sFIRST SLOT 
RTS 
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HUDSON DIGITAL ELECTRONICS INC. 
THE HDE DISK SYSTEM. 


HERE’S WHAT ONE USER HAS TO SAY... 


REPRINTED BY PERMISSION FROM THE 6502 USER NOTES - ISSUE NO. 14 


PRODUCT REVIEW of the HDE DISC SYS- 
TEM by the editor. 

A number of you have asked for details 
about the HDE full size disc system. 

The system is based around the SYKES 8” 
drive with the 6502 baSed intelligent control- 
ler. ; 

This drive is soft sectored, |BM compatible, 
and single density which lets you store about 
a quarter megabyte of data on a disc. 

The system software, called FODS (File Ori- 
ented Disc System), manages sequentialfiles 
on the disc much the same way files are writ- 
tan on magnetic tape - one after another. 
When a file is deleted, from a sequentially 
managed file system. the space that the lile 
occupied isnot immediately reallocated. asin 
some disc operating systems. As it turns out, 
this can be an advantage as well as a disad- 
vantage since deleted files on the FODS sys- 
tem can be recovered after the file hasbeen 
deleted. (This has saved my sanity more than 
once!) Of course when you want to recover 
some of the disc space taken up by a number 
of these deleted files, you can simply re-pack 
or compress the disc and all the active files 
willbe shifted down until there are no deleted 
files hanging around using up space 

FODS has this ability to repack a disc. 

When Saving andloading in FODS you work 
with named files, not track and sector data or 
LL.D. bytes. This makes life a fot easier. I've 
seen some disc systems where you have to 
specify track and sector infoand/or|.D. bytes. 
What a pain that can be! 

H you just want to save a source file tempor- 
arily, you can do that on what's known as 
“scratch-pads”. There are two of these ona 
disc, “scratch-pad A” and “scratch-pad B". 
each of these temporary disc files can holdup 
to 16K or if “B” is not used. "A" can hold one 
tile up to 32K in length, The only files that can 
be temporarily saved on scratch pad are files 
that have been built using the system text 
editor. 

Being a dyed in the wool assembly lan- 
guage programmer. | really appreciate the 
FODS text editor! This line oriented editor is 
upwards compatible with the MOS/ARESCO 
editor but tncludes about everything you 
could aSk forinaline editor. There is afulland 
semi-automatic line numbering feature. lines 
can be edited while they are being entered or 
recalled and edited iater. strings can be lo- 
cated and substituted. the line numbers can 
be resequenced. the file size can be found. 
the hex address of a line can be known and 
comments Can be appended to an assembly 
file after it has been found correct. Oops! 


forgot to say lines can also be moved around 
and deleted. This isn’t the complete list of 
FODS editor commands, just the ones that 
immediately come to mind. 

Another very powerful feature of the sys- 
temis the ability to actually execute a file con- 
taining a string of commands. For example, 
the newsletter mailing tist is now being stored 
on disc. When | want to make labels, | would 
normally have to load each letter file and run 
the jabels printing program. But with FODS. | 
can build up a "JOB" file of commands and 
execute it 

The job file in turn calls each lettered label 
tite in and runs the label printer automatical- 
ty. The way computers are Supposed to oper- 
ate right? 

Here's a listing of the job tile | use to print 
mailing labels: 

:LIS PRTLBL 

0005 LOD A:RUN %LABEL:LOD B:JMP E000: 
LOD C:JMP.E000: 

0010 LOD D:JMP.E000:LOD E:JMP.EOOO: 
LOD F:JMP.EO0O: 

0015 LOD GJMP.E000:LOD H:JMP.E00O: 
LOD |:JMP.EOOO: 

0020 LOD J:JMP.EQ00:LOD K:JMP .E000 
LOD L:JMP.E0OO: 

0025 LOD M:JMP.E000:LOD MC: JMP.EO00: 
LOD N:JMP.EOO0: 

0030 LOD O:JMP.E000:LOD P:JMP .EOOO: 
LOD R:JMP EOOO: 

0035 LOD S:JMP.E000:LOD T:JMP .E00O: 
LOD V:JMP.E000 

0035 LOD S:JMP.EO00:LOD T:JMP .EO00: 
LOD V:JMP.E000: 

0040 LOD W:JMP.E000:LOD XYZ: JMP.EOO00. 
0045 LOD EXCH:JMP.E000:LOD COMP. 
JMP.EOOO: 


Remember the MOS/ARESCO assembler | 
reviewed several issues ago? Well HDE went 
and fixed up ali the problem areas that | 
mentioned in the review and then took it 
several steps further. The HDE assembler is 
an honest to goodness two-pass assembler 
which can assembie anywhere inmemory us- 
ing multiple source tiles from the disc. The as- 
sembler is an optional part of the system 


It you're the kind of person (as | am) who 
enjoys having the ability to customize. mod 
fy. and expand everything you Gwn - you'll 
enjoy the system expansion abilities FODS 
has to offer. Adding a new command is as 
simpié as writing the program. qiving it a 
unique three letter name and saving it to disc. 
Whenever you type those three jetters the 
system will first go through its own command 
table, see that its not there and then go oul 


THANK YOU MR. REHNKE! 
HDE PRODUCTS - BUILT TO BE USED WITH CONFIDENCE 


and read the disc directory to See if it canfind 
it. It it's on the disc it will read itin and execute 
it. Simple right? I've added several commands 
to my system and REALLY appreciate having 
this ability. Some of the things I've added 
include a disassembler, an expanded ver- 
sion of XIM (the extended machine language 
monitor from Pyramid Data), Hypertape, anda 
number of system utilities which make life 
easier. By the way, to get back to the system, 
all you need to do is execute a BRK instruc- 
tion 

HDE also provides a piece ot software that 
lets you interface Microsoft 9 digit BASIC to 
their disc system. The software allows you to 
load the BASIC interpreter itseit from disc as 
wellas saving andioading BASIC Programs to 
and from the disc. This particular version of 
the software doesn’t allow for saving BASIC 
data but HDE mentioned that this ability may 
be possible with a future version 

The first thing | do with a new piece of soft- 
ware after | get used to using it is try to blow it 
up. | did manage to tind a weak spot or two in 
the very first version of FODS (a pre-release 
version) but the later, reiease version has 
been very tight 

The standard software that is included with 
the system consists of the disc driver soft- 
ware, the system text editor and the BASIC 
software interface. Several command exten- 
sions may also be inciuded. All the necessary 
stuff like a power supply. the KIM-4 interface 
card, and all cables and connectors are in- 
cluded. It took me about 45 minutes to get 
things up and running the first time | put the 
system together. 

Admittedly. a dual full size disc system from 
HDE is probably beyond the means of most 
hobbyists but if you or vour company is look- 
ing for a dynamite 6502 development sys- 
tem. | would recommend this one. ve used 
the Rockwell System 65 while | was al MOS 
and feel that dollar for doliar, feature for 
feature. the HDE system comes out on top. 
The only place the HDE system falls short 
when Stacked uo next to the System 65 is in 
the area of packaging. At this point. there is no 
cabinet for the disc drives available from HDE 

So far. I've got nothing but good things to 
say about HDE and their products. Everything 
"ve received from them has been industrial 
quality. That includes their documentation 
and product support. I'm very impressed with 
what I've seen from this company so tar and 
quite enthusiastic over what my KIM has 
become since acquiring the disc system and 


its associated software 
ERIC 


_AVAILABLE DIRECT OR FROM THESE FINE DEALERS: 





ea oan a a re ee 


LONG ISLAND 
COMPUTER GENERAL STORE LONE STAR ELECTRONICS 
103 Atlantic Avenue Box 488 
Lynbrook, NY 11563 Manchaca Texas “Bt 

516-887-'500 512 2824570 


JOHNSON COMPUTER PLAINSMAN MICROSYSTEMS 
Box 523 Box 1712 
Medina. Ohio 44256 Auburn. Ala. 36830 
[ 216-725-4560 800-633-8724 


ARESCO 
P.O Box 43 
Audubon. Pa 19407 
? 175-631-9052 























George W. Hawkins, NY 


PONG SOUND EFFECTS 


Those of you who have purchased The First Book of KIN 
may have noticed the Ping Pong program on page 95. Did 
you also notice that something was missing? If you enter 
the bytes 20 59 03 EA starting at address 02E9, enter 
the bytes 20 73 03 starting at address 031A, rig up 
PAO for audio output, and add the modification given below, 
then the program will have BEEP, BOOP, and ZONK sound 
effects much like the commercial versions. 





REE . LOC 00, 89 
0089 XX MEMY XX, 
O0OBA XX CNT XX, 
OO8B XX PNT XX, 
HEH . LOC 03, 59 
0339 AS 84 MBEP LDA Z_ 84, 
O35B FO 13 BEQ@ R_ RIN NO SOUND IF GAME OVER 
O35D 08 PHP 
O35E A? 02 LDA I O02, MISSED THE BALL BEEP 
0360 85 89 STA Z MEMY FREQUENCY COMPENSTTION 
0362 A? BO LDA I 80, FREQUENCY 
0364 85 BA STA Z CNT DURATION 
0366 20 BA 03 JSR A ENTN PRODUCE NOTE 
0369 AD FF LDA I FF, NO BEEP, OR BOOP AFTER A ZONK 
OS6B 685 &B STA Z PNT 
036D AS 84 LDA Z 84, 
O36F 28 PLP 
0370 Az 04 : RTN LDX I 04, 
0372 60 RTS 
0373 E64 &B HBEP INC Z = PNT CHECK FOR LAST MOVE A ZONK 
0375 FO 21 BEG R- BACK YES 
0377 AS 84 LDA Z 84. HIT, OR SERVE BEEP, GET DIRECTION 
0379 +FO 1D BEG R- BACK NO SOUND IF GAME OVER 
037B 30 OE BMI R_ LBEP LEFT, OR RIGHT? 
037D A? 08 LDA I O8, 
O37F 85 89 STA Z MEMY FREQUENCY COMPENSATION 
0381 85 8A STA Z CNT DURATION 
0363 A? 20 LDA I 20, FREQUENCY 
0385 20 BA 03 JSR A ENTN 
0388 4C 98 03 JMP A BACK 
O38B AQ 04 LBEP LDA I 04, 
O38D 835 89 STA Z MEMY 
O38F A? 08 LDA I 0O8 @ 
0391 85 BA STA Z CNT 
0393 AX 40 LDA I 40, 
0395 20 BA 03 JSR A ENTN 
0398 AS 84 BACK LDA Z 284, GET DURATION FOR ORIGINAL REVERSE 
039A 18 CLC AND CLEAR CARRY 
039B 60 RTS 
TONE GENERATOR LOOP 
PARAMS: 
A=FREGUENCY 
MEMY=FREQUENCY DURATION COMPENSATION 
CNT=DURATION 
O039C AA CLA TAX MOVE FREQUENCY TO X 
O39D EE OO 17 Inc A UPA TOGGLE OUTPUT PIN 14 
O340 CA DLX DEX DECREMENT X 
O3A1 FO 07 BEG R COMP REPEAT TIMES COMPENSATION IF ZERO 
O3A3 EA NOP WAIT OTHERWISE 
O3A4 EA NOP 
O3AS EA NOP 
O3A6 EA NOP 
O3A7 EA NOP 
O3A8 DO Fé BNE R- DLX DELAY FOR FREQUENCY | 
O3AA 88 COMP DEY DECREMENT Y (FREQUENCY COMPENSATION) 
O3AB FO 12 BEG R_ DUR CHECK DURATION IF ZERO 
O3AD EA NOP LOOP TIMING 
O3AE EA NOP 
OGaF EA NOP 
Q3BQ EA noe 
O3B1 DO 00 BNE RON 
O3B3 DO E7 ON BNE R- CLK KEEP TONE GOING 
ENTRY FORK REST 
O3B35 A2 00 RDUR LDX I OO. INITIALIZE PORT FOR SILENCE. USE Al14. 
O3B7 4C BC 03 JMP A DURI 
ENTRY FOR NOTE 
O3BA A2 O1 ENTN LDX I O1, INITIALIZE PORT FOR NOTE. USE Al4. 
O3SBC SE 01 17 DUR1 STX A UPAD 
OSBF Cé BA DUR DEC Z CNT DECREMENT DURATION 
03C1 FO 04 BEQ@ R DONE RETURN IF ZERO 
O3C3 A4 89 LDY Z MEMY GET FREQUENCY COMPENSATION : 
o3cS DO D5 BNE R- CLK KEEP TONE GOING YET t 
03c7 60 DONE RTS RETURN 






Al M 65 ey ROCKWELL INTERNATIONAL 





AIM 65 is fully assembled, tested and warranted. With the 
addition of a low cost, readily available power supply, it’s 
ready to start working for you. 

AIM 65 features on-board thermal printer and 
alphanumeric display, and a terminal-style keyboard. It 
has an addressing capability up to 65K bytes, and comes 
with a user-dedicated 1K or 4K RAM. Two installed 4K 
ROMS hold a powerful Advanced Interface Monitor 
program, and three spare sockets are included to expand 
on-board ROM or PROM up to 20K bytes. 

An Application Connector provides for attaching a TTY 
and one or two audio cassette recorders, and gives exter- 


nal access to the user-dedicated general purpose I/O lines. 


Also included as standard are a comprehensive AIM 65 
ser’s Manual, a handy pocket reference card, an R6500 
Hardware Manual, an R6500 Programming Manual and an 

AIM 65 schematic. 

AIM 65 is packaged on two compact modules. The 
circuit module is 12 inches wide and 10 inches long, the 
keyboard module is 12 inches wide and 4 inches long. 
They are connected by a detachable cable. 


THERMAL PRINTER 


Most desired feature on low-cost microcomputer systems... . 


¢ Wide 20-coiumn printout 

¢ Versatile 5 x 7 dot matrix format 

* Complete 64-character ASCII alphanumeric format 
¢ Fast 120 lines per minute 

¢ Quite thermal operation 

¢ Proven reliability 


FULL-SIZE ALPHANUMERIC KEYBOARD 
Provides compatibility with system terminals ... 
¢ Standard 54 key, terminal-style layout 

¢ 26 alphabetic characters 

e¢ 10 numeric characters 

¢ 22 special characters 

¢ 9 control functions 

¢ 3 user-defined functions 

TRUE ALPHANUMERIC DISPLAY 

Provides legible and lengthy display . . . 

¢ 20 characters wide 

¢ 16-segment characters 

¢ High contrast monolithic characters 

¢ Complete 64-character ASCII alphanumeric format 









INCORPORATE O 








ENTERPRISES 


PROVEN R6500 MICROCOMPUTER SYSTEM DEVICES 
Bevan. high performance NMOS technology . 
° R6502 Central Processing Unit (CPU), operating at 1 
MHz. Has 65K address capability, 13 addressing modes 
and true index capability. Simple but powerful 56 
instructions. 
* Read/Write Memory, using R2114 Static RAM devices. 
Available in 1K byte and 4X byte versions. 
e 8K Monitor Program Memory, using R2332 Static ROM 
devices. Has sockets to accept additional 2332 ROM or 
2532 PROM devices, to expand on-board Program 
memory up to 20K bytes. 
R6532 RAM-input/Output-Timer (RIOT) combination 
device. Multipurpose circuit for AIM 65 Monitor functions. 
Two R6522 Versatile interface Adapter (VIA) devices, 
which support AIM 65 and user functions. Each VIA has 
two parallel and one Serial 8-bit, bidirectional I/O ports, 
two 2-bit peripheral handshake control lines and two 
fully-programmable 16-bit interval timer/event counters. 


BUILT-IN EXPANSION CAPABILITY 

e 44-Pin Application Connector for peripheral add-ons 
e 44-Pin Expansion Connector has full system bus 

e Both connectors are KiIM-1 compatible 


TTY AND AUDIO CASSETTE INTERFACES 

Standard interface to low-cost peripherals . .. 

e 20 ma. current loop TTY interface 

e Interface for two audio cassette recorders 

* Two audio cassette formats: ASCII KIM-1 compatible 
and binary, blocked file assembler compatible 


ROM RESIDENT ADVANCED INTERACTIVE MONITOR 
Advanced features found only on larger systems... 

° Monitor-generated prompts 

e Single keystroke commands 

Address independent data entry 

Debug aids 

Error messages 

Option and user interface linkage 


ADVANCED INTERACTIVE MONITOR COMMANDS 
¢ Major Function Entry 

e Instruction Entry and Disassembly 

e Display/Alter Registers and Memory 
e 
e 
e 
e 
e 


Manipulate Breakpoints 
Control Instruction/Trace 
Control Peripheral Devices 
Call User-Defined Functions 
Comprehensive Text Editor 


LOW COST PLUG-IN ROM OPTIONS 
e 4K Assembier—symbolic, two-pass 
¢ 8K BASIC interpreter 


POWER SUPPLY SPECIFICATIONS 

e +5 VDC + 5% regulated @ 2.0 amps (max) 

e +24 VDC +15% unregulated @ 2.5 amps (peak) 
0.5 amps average 


PRICE: $375.00 (1k Ram) 


Plus $4.00 UPS (shipped in U.S. must give street address), 
$10 parcel post to APO’s, FPO’s, Alaska, Hawaii, weneds: 
$25 air mail to all other countries 


We manufacture a complete line of high quality expansion 
boards. Use reader service card to be added to our mailing 
list, or U.S. residents send $1.00 (International send $3.00 
U.S.) for airmail delivery of our complete catalog. 


2967 W. Fairmount Avenue Conny VISA 
Phoenix AZ. 85017 ie ee 


(602)265-7564 





BASEBALL FOR THE KIM by Robert Leedom 
(Editors note-Bob Leedom, author of Hexpawn, pre- 
sents another real cute diversion for the basic 
KIM. Stuff £4ke this stile really excites me. 1 
don't usually Like to publish hex dumps because 
they are so faustaating to find your way thaough 
them, but for those of you who want to ace what 
makes Busebale tick, you can get copies of the 
Listing-see the ad for User Notes cassettes. } 


Copyright April '79 by Robert Leedom 


A video style action game for the KIM-1l, which 
uses the on board LED displays in three ways. 


1. You see the windup, the pitch (one of six) 


and the swing. KEY PITCH 
0 SLOW BALL 
L FAST BALL 
2 UP CURVE 
3 DOWN CURVE 
4 RISER 
5 SINKER 

the ba? 





the windup 


tl LLL 


2. You see the hit (if the pitcher was able 
to get the ball in the strike zone, and if the 
batters timing was good enough)-in this case, an 
out-of-park home run: 








ieee LN bal| 
; Poin 
oe “ine por 


»..but there are also six kinds of hits! 


3. You see everything you need to know about 
the game's progress: naturally, you'll see the um- 
pire's calls and score, but you'll also see, just 
before each pitch (or at the touch of the 'PC' key 
during windup), a compact status display. The 
score may be seen during windup by pressing the 


ora 


Feamal Sitting “outs een “halls 
S€tokd 











The game can be played as nine-innings worth 
of batting practice against KIM's pitching, or as 
a two player game. in batting practice, the ‘team 
at bat' display will be blanked (of course, if the 
two of you are tied at the end of nine innings, the 
game will go into extra innings (E on the inning # 
display) until there's a winner!). The KIM key- 
board serves as the input for pitch selection and 
for batting, but for about $3 worth of Radio Shack 
switches, you can “remote” the pitchers’ and/or 
the batters controls! And only two data words are 
necessary to support these changes. 


/O 





Astrike, 


ontrol Word Value of Batting and Pitching 
Control Word inputs 


Positive or Batter uses Keyboard 
Zero ("B"-key) 








BATTER 


(loc, $0028) Batter uses remote 


Negative 
pushbutton switch. 
Pitcher uses keyboard 
(keys 0-5) 


Positive 





ITCHER Computer pitches 
(loc. $002C) 


Pitcher uses remote 
rotary and pushbutton 
switches ' 


Negative 





*VALUE SET ON PROGRAM TAPE 


KIM gives you a slight edge-if you're quick 
enough to pass up a fourth wild pitch for a walk, 
all your baserunners will advance. But the qual- 
ity of pitching’s pretty good-be on your toes! 






REMOTE PITCH/BAT FOR KIM~1l BASEBALL 








6 <3 
swine GAT 


$1 
SWITCH SELECTED 
POSITION PITCH 


le SLOW BALL 
2,8 FAST BALL 
3343-9 UP CURVE 

4 , 10 DOWN CURVE 
5, 11 RISER 

6 , 12 SINKER 


PARTS LIST 


St single pole, 12 position switch (Radio Shack 
275-1385, $.99.) 


$2: 53 SPST switch, normally closed (Radio 
Shack 275-1548, 5 for $2.49) 


I mounted S1 and S2 in what I call the Pitch- 
ers' Wand, a Head & Shoulders plastic shampoo bot- 
the. (The neck of the bottle is the handle, and 
Sl is where the label was. $2 can be easily 
flicked with the thumb while holding the handle.) 
The reason for the 12-position PITCH SELECT switch 
is to make it harder for the batter to memorize 
switch positions and listen to clicks-~for example, 
one click from a slow ball can either be a fast- 
ball or a sinker. 


S3 was mounted in a small plastic pill bottle 
that fits easily into the hand. 


q 








Start Baseball at $0200. 


To restart the game, 


hit GO during the windup or during the the endgame 
display (six baseballs). 


000 
010 
020 
030 
040 
050 
060 
070 
080 
090 
OAO 
ORO 
oco 
ono 
OEO 
OFO 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
1A0 
1kO 
1CO0 
ino 
1EO 
1F0 


ecco-03FF ¢ = /7BO-/7£6 

00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 08 40 O21 01 00 FI 00 
OO FE 01 FF 02 03 A4 OF AF BS BR Ci AD SI B7 
75 OO O1 40 41 08 09 48 49 3A 1A 2A 2A 25 OF 
1A 2A 2A 25 2F 20 20 24 24 29 2E 2F AA AA AF 
A9 ABR FA SA FF SS F9 SE 29 20 2F 2A 2F 2B 2E 
00 78 5C 00 00 00 00 50 1C 54 6h 70 77 38 38 
00 6 78 50 00 00 00 39 77 3E 30 76 78 37 046 
6m 79 SE 6— 79 50 SC 1€ 78 00 00 00 SC 1C 78 
3F 73 3E 73 00 71 SF 3E 38 00 76 SF 37 79 SO 
38 6€ SC iC 78 60 04 54 3 38 79 SE SC 1e 70 
79 78 50 04 73 38 79 SE 70 38 00 73 38 63 63 
63 63 63 46 13 D0 04 AP 20 B85 13 20 63 O1 AS 
85 24 AY 30 BS 1F AO 07 20 17 O1 BB TO FA 40 
18 00 00 00 00 00 00 00 60 00 00 00 60 00 00 


84 26 AO 05 BI 26 99 IF 00 88 10 FB AD CO 20 
O1 20 17 O1 88 fO F7 84 25 AO OO AY 7F BN 41, 
A2 09 84 FC BO IF 00 20 4E IF C8 CO 06 90 FS 
Sl 1F 20 6A 1F A4 25 60 EA 85 OF BS 49 48 48 
FB EA BS 1h 4A 85 07 68 29 03 B85 F4 68 4A 4A 
O03 85 F3 BS SC AR 03 48 29 03 95 EF 68 44 4A 
10 FS 60 A? 00 AZ OS 95 1F CA 10 FER AG OF B4 
BO 27 00 95 1F A4 1f 60 AZ 00 46 1A 9O 1€ Ab 
RS 11 69 00 95 11 EO OF TO 10 AS 01 C9 G9 90 


€5 1B CS 10 KO 04 B6 1E TO 06 8B 10 Dh BA FO & 


5 1B 20 80 17 AS 2C FO 11 84 6F 85 70 AS 1C 


80 17 84 73 85 74 AO 6F 0 06 84 75 85 76 40 7 


20 00 01 60 84 09 98 bBCS 07 90 04 AS iff ES 
A2 08 86 13 CS 07 90 OA ES 07 48 AS 12 05 13 
12 68 46 07 46 13 [NO EC A6 12 BS 20 60 60 17 
AA 17 A4 AA 70 1F 70 1F 70 00 00 00 98 O00 35 


KIM BUS EXPANSION! 


AIMT™, VIMT™ (SYM)™™ KIMT™ OWNERS 
(and any other KIM™ bus users) buy the 
best 8K board available anywhere: 


same low prices! 
HDE 8K RAM-S169! 3 for S465! 


industrialicommercial grade quality: 100 hour high temp burn- 
in: low power: KiM bus compatible pin for a super quality & 
reliability at below S-100 prices (COMMERICALLY rated S-100 
boards cost 25-75% more). When you expand your system, expand 
with the bus optimized for 8 bit CPU's, the Commodore/Mos 
Technology 22/44 pin KIM bus, now supported by Synertek, MTU, 
Rockwell International, Problem Solver Systems, HDE, the Comput- 
erist, RNB, and others! 

KIM-1 computer $179.00: KIM-4 Motherboard $119: power sup- 
ply for KIM-1 alone—$45: enclosure tor KIM-1 alone $29: HDE pro- 
totype board with reguiator, heatsink, switch address & decoding 
logic included $49.50: book “The First Book of KIM” $9.95: book 
“Programming a Microcomputer: 6502" $8.95: SPECIAL PACKAGE 
DEAL; KIM-1, power supply, BOTH books listed above, ALL for 

t 


s208 

HDE FILE ORIENTED DISK SYSTEM (FODS) FOR KIM BUS 
COMPUTERS Make your KIM (or relative) the best 6502 develop. 
ment system availabie at any price. Expand with HDE's full size 
floppy system with FODS/Editor/Assembler. 2 pass assernbler, 
Powerful editor compatible with ARESCO fites KiM bus interface 
card: fast 6402 controller handies data transfer at maximum IBM 
single density speed tor excetient retiability: power supply for 4 
drives: patches to Johnson Computer/Microsott BASIE’ 45 day 
delivery. Single drive—$1995 dual drive $2750 i 

Shipping extra untess order prepaid with cashier's check ALL 
items assembled, tested, guaranteed at least 90 days. 


PLAINSMAN MICRO SYSTEMS [div. 5C 

P.O. Box 1712, Auburn, Al. 38830: (205)745-7735 

3803 Pepperell Parkway, Opelika 

[1-800-633-8724) Continantal U.S. except Al. 

Dealers for OSI, COMMODORE, COMPUCOLOR. 
ea ALTOS 







































77CO 10 F7 FSB 460 AY OO Bf 01 17 AL OO 17 60 AS 


200) All 06 17 85 15 FB AY OB B85 00 AP OO BS 

210 85 18 B85 1C AS 00 49 01 85 00 CF OA LO 07 
220 O01 69 01 85 01 AY 00 BS O02 B85 1A AP 00 BS 
230 OS AS 1A OF O08 B85 1A AY 00 B85 12 BS 13 AP 
240 OR 20 13 03 AS 2C FO 24 AS 2C 10 10 20 C4 
250 90 12 29 1F A2 00 4A 90 32 EB 10 FA 20 2F 
260 06 AA 90 27 20 3 00 20 91 17 BO TC 20 An 
270 7F 09 20 BS 08 20 13 00 20 91 17 C& 06 BO 
280 Af 17 29 07 C9 06 90 02 EF 06 AA 20 AN 17 
290 C9 O03 KO Of AB BA LO O3 98 DO 06 EB EB ES 
2A0 E8 20 3K O01 AP FF 85 03 AP 30 B85 OA 20 63 
2kO 17 01 AB 03 10 18 C9 11 FO 09 AD 2B 10 10 
2CO 17 10 OB AY 06 85 OA AS IF OA BO 41 85 O03 
200 29 49 05 OA BS 1F 88 DO li6 AS 03 10 20 C6 
2E0 CR AS EF C9? 02 FO 23 E6 04 AS 04 Bt E? 1F 
2FO AO 7K 20 00 01 AS 04 C9 04 LO 6E AD 00 20 


300 AS 1E FO 03 4C 9C 03 4C 2B O2 4C 6C 03 20 
310 85 06 18 69 OF AA FB AP 01 20 39 OL 20 63 
320 06 85 1F 20 17 01 BE TO FA E6 OF AS OF C9 
330 ER A6é 06 B4 39 20 00 01 AP 00 BS 09 20 AL 
340 04 FO 02 E6 69 A4 06 10 B4 CB DO O38 4C Ch 
350 OF DO 03 CB SO Ol R4 3D 20 00 O01 AS 09 BG 
360 2 TO 22 AS OS C9 O2 DO O3 4€ 37 02 E6 05 
370 «ED E7 1F 85 86 AO B81 20 00 O01 AS OS CY 03 
380 AO 93 20 00 O1 E6 02 AS 02 BI E7 1F 85 9A 
390 20 00 OL AS 02 C9 O03 FO 03 4C 2H OR 20 AO 
SAO 16 TO 26 AS 01 C9 OF BO 07 AS 2C HO 13 4C 
SRO AS 2C FO 15 AS 00 C9 OF FO 09 AS 1B CS 1€ 
3CO «64C 14 02 AS 2BOCS 10 FO F7 20 91 17 AO Ch 2 
30) 06001 FO C9 AZ OS R4 00 RO EZ IF 9S OC CA 10 
3EO O01 C9 OA 90 04 AY 79 BS Olt AS 1A 29 07 AA 
3FO 85 OF AS 2C TO 04 AY 00 BS OC AD OC AL OO 


1780) 48 4A 4A 4A 4A AA HC E7 IF 68 29 OF AA BE 
60 20 17 01 C9 20 M0 O03 20 3 03 C9 18 DO 
17A0 AO 01 £9 19 NO O% 68 68 4C 05 02 3B 60 38 
7780) 15 65 16 45 19 85 14 AO 04 BF 14 00 99 15 





17D0 0% 02 C9 18 FO 04 C9 14 LO 09 A0 C7 20 00 
/7E0 1A E6 02 4C 85 93 FF 00 00 00 00 00 00 00 






SOFTWARE 
9K MICROSOFT BASIC 


INCLUDES: 
@ Over 55 Commands 
@ Full String Handling 
@ 9 Digit Precision 
@ Hypertape Built-In 
@ 70 Page Manual 
SPECIAL 


Includes "DATA/SAVE™ 
(Added Commands to Record 
Both Programs And Data!) 


KIM CASSETTE & MANUAL 
$100.00 prepaid 


UPDATE KIT & MANUAL FOR KIM BASIC 
WITHOUT MICRO-Z FEATURES .. . $35.00 


MICRO-Z COMPANY 


Box 2426 
Rolling Hills, CA 90274 

























LANGUAGE LAB 


LIst 


a 
iC 10 abedefghijklmnop 
20 gqretuvwxyz 


30 All the king's horses and ali the king's men 
AN EDITOR FOR MICROSOFT BASIC 40 Couldn't put Humpty together again 


OK 
from Sean McKenna @ ) 10¢defg¢DEFG¢ 
64 Fairview Ave 
Piedmont CA 94610 


OK 

(Editors note: How many times have you had 
to reenter a whole line in a Basic program just to ® ) 30¢king's ¢¢ 
correct one small typo? No need for that aggrava- 
tion any longer. Sean is generously sharing the 
editor portion of his Basic Enhancements Package . OK 
with us). 

; . List 

Character oriented editor for KIM BASIC: 

1) Set the BASIC I-O calls and the I-0 calls 10 abcDEFGhijkimnop 


to your system as indicated in the listing. 20 qratuvwxyz 


oats . 30 All the horses and all the king's men 
2) The delimiter is set by the contents of 40 Couldn't put Humpty together again 
§02CB (it is a backslash although appears as a ¢ OK 

in the program due to printer strangeness) ® ) 40¢king's¢queen's¢ 


3) The command is set by the contents of 


?MATCH ERROR 
$0214 to be ")" in the first position of an in- 


' OK 

put line, 
. (C3) ) 30¢king's¢queen’s 

4) Before making any use of the progran, 
FIXFLG and INDEX ($OOED and $00E3) must be initial- ?SYNTAX ERROR 
ized to $00. OK 

30¢king's¢king's and ' ’ ‘ 
5) To edit a program type the command ")" © yaOskiag nag Sane coke te ane! Diendp <8 end: page "ay 


followed by any valid Jine number, backslash, ma- 
terial to be deleted, backslash, material to be 

added, backslash, CR. If the edit goes well you © 
will get the usual "OK" prompt. If the string 

you specified for editing was not found you will 

get a "MATCH ERROR", If the addition asked for 


?TOO LONG ERROR 
OK 
) 30¢king' s¢queen's¢ 


: A OK 

caused a line overflow you will get a "TOO LONG 

ERROR", If you neglect to include all three del- 

imiters you will get a “SYNTAX ERROR". In all er- @ )30¢30¢50¢ 
ror situations the original line remains intact. 

You may delete material by not putting anything OK 

between the 2nd and 3rd delimiters. You way move LIST 


a line be doing an edit on the line number itself 

and then deleting the original line. Line and 

character delete (@ and _) will operate as usual 10 abcDEFGhijklmop 
during an edit line input. 20 qrstuvwxyz 


30 All the norses and all the queen's men 
tee enum, QRS $9200 4 outdn‘e put fumpty together egein 
0080: 0200 INDEX * $00E3 50 All the horses and all the queen's men 
0090: 0200 PLACE * $00E8 OK 
0100: 0200 POINT * $00E1 
0110: 0200 LENGTH * $00E9 
0120: 0200 LIMIT * $00E5 
0130: 0200 TERMNL * $0017 
0140: 0200 CRCONT * $O00E4 
0150: 0200 YTEMP * $00E0 
0160: 0200 BASBUF * $001B 
0170: 0200 MATCH * $0110 
0180: 0200 BASERX * $2321 
0190: 

0200: a ae ee ee ee ee | 

0210: BASIC Input call from $2456 to here 

0220: ee ee ee 

0230: 0200 24 ED BIT FIXFLG IF fix flag set 

0240: 0202 10 07 BPL GETIN 

0250: 0204 E6 ED INCZ FIXFLG THEN clear it, 

0260: 0206 A6 E8 LDXZ PLACE set X to end of line, 

0270: 0208 A OD CRRET LDAIM $0D and return to BASIC with a CR 
0280: O20A 60 RETURN RTS 

0290: ese eee tte ee ett . 
0300: 0208 20 CO 17 GETIN JSR. $17C0 Cail to your own input routine 
0310: a ee | 

0320: 020E C9 OD CMPIM $0D IF user input is not a CR 
0330: 0210 DO FS BNE RETURN THEN return to BASIC 

0340: 0212 A5 1B LDAZ BASBUF ELSE IF first character in 
0350: 0214 C9 29 CMPIM *) BASIC input buffer is not ")" 
0360: 0216 DO FO BNE CRRET THEN return to BASIC 


Joe 
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SOME BASIC HINTS FROM 


Bob Kurtz 

Micro-Z Electronic Systems 
Box 2426 

Rolling Hills CA 90274 


A, Several articles have been written about 
programs in BASIC that provide a word processor 
or text editor capability. Unfortunately, BASIC 
uses the comma (,) and the colon (:) as commands, 
and if they appear in the text that you are writ- 
ing - BASIC will immediately reply with an error 
statement. The following POKE instructions, 
placed early in your program, will de-activate 
these commands: 


XXXX POKE 11031,34:POKE 11035,34 


At the end of the program, insert the fol- 
lowing instructions to put BASIC back the way it 
was: 


Z2ZZ =POKE 11031,58:PORE 11035,44 


B, Some versions of KIM BASIC will not exe- 
cute the SPC command properly-but will execute it 
the same as the TAB command. The reason is that 
there was a CLC instruction improperly located. 
Make the following changes: 


298B 18 298E C9 
298C FO 298F 2C 
298D 67 


This will permit the SPC(X) instruction to 
space over X units from the last location on the 
terwinal-not form the left margin. 


BASIC NOTE 


from Sean McKenna 
64 Fairview Ave 
Piedmont CA 04610 


In issue #31 of Dr. Dobb's Journal there was 
a machine language renumber program for PET BASIC. 
In the current issue (#36) there are notes indi- 
cating changes which allow the program to work 
for KIM BASIC. Relative to the other renumbering 


focal 


First of all, I want to thank Dave and Don 
Marsh from the 6502 Program Exchange (2920 Moana 
‘Ln., Reno NV 89509) for providing me with the 
source listing for their version of FCL-G5E. The 


listing has been invaluable in getting all the mods 
set up for both versions of FOCAL (one from Aresco 
and the other from the Program Exchange). 


By the way, both versions must be suitably 
modified as per issue #14 in order to use the mod- 
ifications that will be presented. Program Ex- 
change FCL-65E users need to move the start up 
message at line 00.00 to the top of the 8K block 
by moving the data at $35D4 through $35F3 to start 
at $3FEO. 


In trying to cooordinate these mods across two 
versions of FOCAL, I've run across a zero-page us- 
age prceblem in the Program Exchange versions. This 
version uses about 50 bytes of zero-page for term- 
inal 1/0. (According to the exchange, this was 
done to make FOCAL more portable between different 
machines). Anyhow, the long and short of it is - 
these I/O routines will have to be moved back into 
FOCAL to allow freer use of zero page. 


Once the line 0.0 has been moved up to the 
top of the 8K block, the I/O routines from $Q0A9- 
SOODC can be moved to start at location $35D4, Of 
course, the internal references to OUT and IN will 
have to be changed to reflect the changes. 


ft 


programs which have appeared in the notes this is 
a vast improvement: it changes decimal numbers in 
a line only immediately following a GOTO, GOSUB, 
THEN, or ON; it will accomodate a change from any 
size number to any other size without any special 
consideration such as leaving spaces, etc.; it is 
very FAST, naturally, The program also revealed 
some interesting aspects of BASIC's mysterious 
inner workings which may be useful in other con- 
texts. 


PRODUCT REVIEW by the Editor 


MICROSOFT BASIC ENHANCEMENTS 


If you're bothered by the fact that Microsoft 
Basic doesn't have an automatic line number fea- 
ture, a line editor, or a renumbering command, then 
you're in luck. Sean McKenna who shared his Basic 
auto-line number with us in issue #14 has come up 
with a dynamite mod package for the 9 digit Basic 
(will work with the package from Johnson Computer 
or Micro-Z), 


This 1.25K package is written in machine code 
and includes the auto line number command, a re- 
number feature, a line editor, an append program 
capability and a controlled output (outputs 16 
line and waits for user input). All in all, a 
ceally nice package that worked right the first 
time I] loaded it in. By the way, getting this 
package interfaced to Basic was no sweat at all- 
since this package interfaces itself to Basic! 


All that's necessary, once both programs are 
loaded,to start running at an address contained in 
the mod package. The mod package hooks itself in- 
to Basic and then jumps to Basics initialization 
routine, Really clean. 


This mod package consists of a cassette, and 
a 20 page manual which includes a complete source 
listing (!)}. It sells for $20 (plus $1.50 S&H) 
and is available from Sean McKenna, 64 Fairview 
Ave., Piedmont CA 94610, 


A fair price for some powerful Basic enhance- 
ments. 


Eric 


FOCAL ENHANCEMENT PACKAGE 


The 'NOTES' is now distributing a very useful 


FOCAL enhancement package that will let you save 
and load complete FOCAL programs on cassette ag 
well as lines or groups of lines and/or program 
variables. Commands may also be exeeuted directly 
from cassette. The package was written by Joe 
Woodard For ordering info, see the cassette 
software ad in this issue. 


ADDING A CASSETTE INTERFACE AND A USER FUNCTION TO 
6502 PROCRAM EXCHANGE'S FOCAL 65~E 


by William C. Clements, Jr. 
1489 51ST Ave East 
Tuscaloosa Al 35404 


The FOCAL language is really a good alterna- 
tive to BASIC, at least for KIM users. Of course, 
it doesn't have everything. The features I missed 
the most were a cassette interface and the ahility 
to execute a machine-language routine within a 
FOCAL program This article shows how to add tape 
Load and Keep commands and how to implement a 
“user” function similar to that of TINY BASIC. 

The modifications apply to FOCAL-65 (V3D) for the 
KIM~l as supplied by the 6502 Program Exchange. 


a2,a,,and a, are optional. a., if present, will be 
nific 


Listing 1 gives the code needed to add the evaluated and the least si ant eight bits 
cassette interface commands. I began it directly stored in the accumulator : eee executing the 
after the FOCAL interpreter, because I had moved user's code. a, and a,, if present, are similarly 
the RAM allocation for program text and variables evaluated and placed in the X and Y registers, res- 
to another area. It can go anywhere in memory that pectively. Thus up to three bytes may be trans- 
you wish, with simple relocation and listing the mitted directly from the FOCAL program to the ma- 

® addresses of routines KEEP and LOAD in FOCAL's chivwe code: (nore of esuree “ean bert canem ebed an 
command dispatch tables. The cassette Load com- 
mand enters the regular KIM monitor at $1873, and either direction by using FOCAL’s version of PEEK 
the Keep command uses a Hypertape routine in my and POKE, the FMEM function). The arguments can 
system; it's almost a necessity to use a cassette be constants, simple variables, or any other legal 
dump routine faster than KIM's, since the memory FOCAL expressions, and as such have decimal values, 
Tequired to store the FOCAL program statements in 
ASCII form can be large. As examples, the statement S FUSR(8192,0,16, 

10) will cause a jump to location $2000 with zero 

The tape operations could have been done us- in A, $10 in X, and $0A in Y. The statements 
ing the existing I~O handlers provided in FOCAL, 
but I preferred to use conventional commands. The 1.1 S A=100 
form. of the commands is L xx to load a file having 1.2 S B=13 
hexadecimal i.d. "xx" and K xx to record a file 1.3 S FUSR(625-(A+B),,B,) 


with i.d. "xx" onto tape. : 
would jump to $200 with $0OD in X. Note that there 














Readers who have program control of their tape are always three commas, as FOCAL uses them to tell 
recorders might want to use these commands inside which argument is. which. If you want the variable 
a FOCAL program to manipulate tape files, I can FUSR itself to have a numerical value after its 
only use them in the immediate execution mode, execution such as FRAN or FABS do, you can have_ 
since I have to push buttons on the recorder. The your machine code. put that value into the floating 
KIM tape routines exit to loc. zero, which my code accumulator FAC] (locs. $80-83 - see p. 7 of the 
sets up with a jump instructin, Hitting the G key 6502 Program Exchange's listing of FOCAL 65-E). 
on the TTY after either tape operation is through Your machine code must transfer control to loc. 
will get you back into FOCAL. All starting and FPOPJ (in FOCAL) when it is ready to re-enter FO- 
ending address for the tape files are automatically CAL, and it will returm to the point in your FO- 
set by the routines, including the final address CAL program where, FUSR was invoked. Listing 2 
after loading a file. gives the machine code needed for adding FUSR to 

FOCAL. 

The Keep routine uses Hypertape stored in my 
system at loc. $C400; the jump at location. TAPOUT The changes required within the tables of the 
will need to be fixed by the user to suit his own FOCAL interpreter to make it recognize K. L, and 
system. The jump in loc. zero restarts FOCAL at FUSR and to execute the codes in Listings 1 and 2 
its cold start, as that's the only way I can use are given now. The format follows that of, the 
it. If you want to get back into the middle of original listing of FOCAL. 
an executing FOCAL program, the jump at location 
JMPFOC and the data bytes at locations ADLOW and ARESCO 
ADHIGH will have to be changed, $350B 18 HKYTE HFUSR 

3527 36 HBYTE FUSR 

The "user" function works like the one in 3543 41 BYTE FUSR 
TINY BASIC; it allows user-supplied machine code 3557 4B ASCII 'K' 
to be executed as a FOCAL function. The FOCAL code 3558 4c ASCII 'L’ 
to invoke it is S FUSR (ay149,44,4a,), where the 356B 36 HBYTE KEEP 
a's are the four arguments. The first, a,, must 356C 36 HBYTE LOAD 
always be present because it is the address to which 357D 04 BYTE KEEP 
the program will jump to begin the user's code, 357E 33 BYTE LOAD 

0010 2000 sCASSETTE INTERFACE ANI USER FUNCTION MONS 
06290 2000 3FOR FOCAL FROM W. CLEMENTS 1979 
0030 2000 
0040 2000 ¢KIM LOCATIONS 
0050 2000 FACK =$1FAC 
0060 2000 th =$17F9 
0070 2000 FREG =$F 1 
0OBO 2000 INL =$F8 
0090 2000 SAL =$17F5 
0100 2000 SAH =$17F6 
0110 2000 EAL =$17F7 
0120 2000 EAH =$17F8 
01360 2000 LOALT =$1873 
0140 2000 VEE =617EC 
0150 HYPER 50200 sADNRESS OF HYPERTAFE ROUTINE 
0160 
oO1ee sFOCAL LOCATIONS 
OVO FOCAL =$2000 
O19O GSFNDK 29A3 §($29B1 IN ARESCO VERSION) 
0200 FRAIR =$31 
VARBEGS =$3& 
2000 INTGER =$2F85 #($2F93 IN ARESCO) VERSION) 
20600 M1 =$81 
2006 CHAR =$2k 
2000 NXIARG =$2F7 #($2FB9 IN ARESCO VERSION) 
2000 
2000 sMON LOCATIONS 
2OOG KE $O 
296 OOOO JMPCOM kekeD sJUMF VECTOR IN ZERO FAGE 
NOOO  OOWS NARGG  *=k44 *NUMBER OF ARGS IN USK 
OBO GOO? SAVA Kowd) 
0320 NODA SAUX edd 
O33G  OGON 





fo 





/6 


0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0400 
0610 
0620 
0630 
0640 
04650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
OB30 
0840 
oBS0 
0B60 
0870 
08so 
0B90 
09700 
0710 
0920 


0930 | 


0940 
0950 
09460 
0970 
0980 
0990 
1000 
1010 
1020 
1030 
1040 
1050 
1040 


1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1140 
14°7O 


0008 
0005 
0005 
35EB 
35EB 
3S5EE 
3SF1 
35F4 
35F7 
35F9 
35FC 
35FE 
3600 
3602 
3604 
3604 
3607 
3609 
360C 
360E 
3611 
3613 
3616 
3618 
3618 
3610 
361F 
3621 
3623 
3626 
3626 
3629 
362K 
362E 
3630 
3633 
3633 
3636 
3638 
363A 
363C 
363E 
3641 
3641 
3641 
3641 
34643 
36458 
3648 
364A 
364C 
364E 
3650 
3652 


3655 


3657 
365A 
365C 
365F 
3661 
3663 
3665 
3667 
3669 
366B 
366Tt 
366F 
3671 
3674 
3676 
3677 
347A 
367A 


367C 
367E 
3680 
3482 
3684 
3684 
3687 
3488 
348A 
368K 
368k 


20 
20 
20 
20 
AS 
8p 
Ag? 
85 
Ag? 
85 


20 
AS 
8L 
AS 
8p 
AS 
8D 
AS 
80 


85 
ag? 
85 
4c 


All 
85 
AD 
85 
4c 


cy 
FO 
c9 
FO 


20 7 


A8 
E6 
60 


AZ 
AC 
AZ 
ac 
F8 
F9 
4c 
00 


Fi 


ER 


FS 
32 
Fé 
SE 
F7 
3F 
F8 
00 
o1 
20 
o2 
00 


ED 
3E 
EE 
3F 
00 


ER 
26 
01 
36 
02 
73 


29 
1F 
29 
1F 


17 


17 


17 


17 


17 


02 


17 


18 


34 
36 


36 


00 


2F 


sFOCAL MODS START HERE 
x=$35EB 

-OFF 2000 
JSR GSPNOR 
JSR PACK 

JSR GSPNOR 
JSR PACK 

LDA INL 

STA ID 

LDA #$4C 

STA JMPCOM 
LDA #0 

STA PREG RTS 


SUB 


KEEP JSR SUB 

LDA PBADR 
STA SAL 

LDA PBADR+1 


STA SAH 


LDA VARBEG 

STA EAL 

LDA VARBEG+1 

STA EAH 
ADRLOW LDA #<FOCAL 
STA JMPCOMt1 
LDA #>FOCAL. 
STA JMPCOMt2 
TAFOUT JMP HYPER 


ALDRHI 


ENLOAD LDA VEBtI 
STA VARBEG 
LDA VEB+t2 
STA VARBEGH1 
JMFFOC JMP FOCAL 
LOAD JSR SUB 
LDA #<ENLOAD 
STA JMPCOMt+1 
LDA #>ENLOAL 
STA JMPCOM+2 
JMP LOADT 
sNOW FOR THE ‘USR’ 
FUSR LBA #$4C 
STA JMPCOM 
JSR INTGER 
STA JMPCOMt1 
LDA Mitl 
STA JMPCOMt2 
LBA #0 
STA NARGS 
JSR USRARG 
STY SAVA 
JSR USRARG 
STY SAVX 
JSR USRARG 
LDA NARGS 
BEQ JMPUSR 
CMP #41 
BEQ STAC 
CMP #$2 
BEQ STACX 
CMP #$3 
BE@ STACX 
STAC LDA SAVA 
JMFUSR JMP JMPCOM 
STACX LIA SAVX 
TAX 
JMF STAC 


USRARG LDA CHAR 


CMF #’» 

BEG GETARG 

CMF #°) 

BEQ RET 
GETARG JSR NXTARG 

TAY 

TNC NARGS 
RET RTS 


»ENU 


#GET NEXT BLANK CHAR 
#CONVERT TO HEX AND STORE 
sREFEAT FOR 

sNEXT DIGIT 


*SET TAPE If 

sSETUP JUMP LOCATION 
¢IN ZERO PAGE 

sCLEAR STATUS REG 
sANLI RETURN 


sSET ID ETC 
sSET KIM 
#TAPE REGISTERS 


sMAKE JUMP INSTR. A 
sRETURN TO COLDSTART 


*SET ADDRESS AT END OF 
sFROGRAM TEXT 


sRETURN TO FOCAL 

9SET In ETC 

sMAKE JUMP FOINT TO 
#THE REST OF THE TAFE 
sLOAD ROUTINE 


sREAL THE CASSETTE 


FUNCTION 


sSET UF JUMF LOC. 


sFET FIRST ARG. IN FAC1 
sREARRANGE LOW ANTI! HIGH ORDER 
sBYTES INTO JUMP LOCATION 
sTHAT WILL EXECUTE USER CODE 
*ZERO THE ARG. COUNTER 


sEVALUATE ANID SAVE HOWEVER MANY 
sARGUMENTS ARE LEFT 


y>JUMF TO USER’S CODE IF NO MORE ARGS 


9SET ‘A’=ARGy IF ONE ARG LEFT 
sSET ‘A‘=ARGLy ‘X’=ARG2 IF TWO LEFT 
§SET ‘A’=ARG1y ‘’X’=ARG2s “Y’=ARGS 


gARGI IN ‘A’ 
#GO DO USER’S CONE 


§GET CURRENT CHARACTER 
sANDTHER ARGUMENT? 


yYES» GO GET IT 
sENT OF STATEMENT? 
sYES» RETURN NOW 


sEVALUATE NEXT ARG. 


sCOUNT ARGS FAST FIRST 
sRETURN 
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00 
00 


ra: | 
T3 
eke] 
00 
00 


00 
00 


6a 
00 
38 
00 
00 


00 
00 
00 
04 
S39 


00 
00 


00 
00 


36 
Ta 
v9? 
00 
00 


00 
00 


+8 
da 
48 
00 
00 


00 
00 


94 
di 
64 
00 
00 


00 
00 


ug 
28 
28 
00 
00 


00 
00 
v4 
T4 
qd 
929 
00 
00 


00 
00 
36 
64 
q3a 
00 
00 
00 


00 
00 
84 
aq 
93 
94 
00 
00 


PIOD LVIL/DIS WHATS FUL AO 
AA SHH 9S FAS eZ 


040404040404040 ALAd* 


X30NI ATd¥L=3009 IIIS 
AN3W93S N3N3S AHL HLIM J18¥L 3HL 


04040404040 JLAA’ 


T-dSId=Sid¢ 
LNO 1144 


é GQ3SHSINIG SIIOIN 11¥4 


S31DA9 OOS LNOay AVI13¢ 


4d4G SAV TdSTO 11¥4 


© 


€13Z 
£15Z 
9$t 


¢I13az 


AL$# 


avs 
A‘dSId 

qas 

é$# 
o1vd 
ALS 
e13az 


00 00 00 00 O82 
00 00 00 00 022f 
03 0d 23 £4 0928 
8U 34 244 00 OSes 
J3 dd 98 Aad Ovds: 
00 c¥ ¥B BB OLE 
00 00 00 00 O&Ze 
00 00 00 00 OTZF 
DVIS ELWMAS 

¢hynd tFf1f 

days 
*s3d09d¢ 
S4N3H $s 
dSIgd 

S1¥ Siu 
4ST 92 vd 
ANd 23 
Add 90 
XNI 
XNI 
ANI 
AVL 
vd 
aNd a4 
Aad vIaz 
Agqq AZ 
YHd 
VAL 
¥1S ZT Ov 
vat zg vo 
xis £1AZ ZT ce 
xa 60 
vis ZT Te 
2 | AZ 
ysr TIAZ 9c ¥d 


00 
00 
00 
00 
00 
00 
00 
00 


00 
00 
00 


00 
00 


09 
oe 
od 
03 
83 
83 
839 
8y 
89 
ou 
88 
OV 
Ab 
846 


64 
38 
av 
18 
é¥ 


a 


Zize 
GLE 
STtZe 
Tle 
£1TZE 
etZe 
TI¢Ze£ 
OTZe 
oTéZe 
Orgs 
OféZe 
ozs 
AO0Ze 
a0Ze 
1oze¢ 
302 
qoze 
voce 
VOLE 
60Z£ 
904L2 
voze 
coze 
TozZe 
ooze 
AAVE 
34d9f 
qsve 
dAPe 
VAIL 
BAPE 
LAPT 
GAPE 
£APE 
OAPE 
gage 
d39c 
BAIL 
GAIL 
£A9L 





gas ALS 
aog¥d Ais 
o¢# Ad e1az 


syoyuya ON HLIm HSINI4é 313 
uN JNA 
vadS 930 
£YNI ANA 
fads 3340 
AV 1dSI4 TI3Z ys £YNF 
TYNS 148 
xad 
X4fadS ¥ls 
X‘T3adS 9d TUNG 
T$# Xd7 AMNG 
StdSId Vis 
A‘dayl 91 
TASS JNA 
9¢# Xd4dd 
XNI 
X*SI0 YLS 
X4dSE0 907 TAAS 
T$#@ Xd 
AVL snas 


i} 3N3H 3IGD JVAVWON-NONKKKANYM ARK SE 





000 440° 
Od9LS=% 


SOW NOILINAOA YASN MINVE 
3L1L3SSV9 3HL YaLd¥ LHOTH BNILNOY SIHL LYVLs? 


T+k=% bads 
T+k=k rads 


SAV1dSI0. LNSW93S Z SHIN 4O W34dS¢ T+k=k cads 

AY1dSI0 3HL TOXYLNGI S71139 OM1 3S3HLE THk=k Tads 
6VS=k 

SNOILYIO1 39¥dq O43Z! 

OrLT$= avs 

cvdi$s= Mas 

Teéi$= 9d 


*SAYTdSIN 3H1 OL LNAS 38 TIM Lndinos 
ANaNBaSENS W1¥ *,¢z) AdOA S, SNILAIAXAE 
A@ c# 3DInad OL LNgino AIdWIS! 

*639INad LNdLNO NY S¥ S37 BHL Asn Ol¢ 


*AVANILIAISAN 4Y¥GES$? 

QNY b¥SEs SNOILY907 OL GNOASZXYOD WINN! 
SIHL ‘389-194 40 NOISYSA 3SNYHOXA WHYOOUd & 
Z0S9 3HL NI ‘OOSE$ NI SSaAwITY YauGNO MOT! 
BHL ONY daSe¢ NOILYIOT NI 3NILNOYN LAdinds 
37 3HL YOd SS3MTTY ONTLA¥1S 3HL 40 JLAdS 
N30NO H9IH SHL Lnd “NOISNSA OOSaNY AHL NT? 


*SI LI 3NY3HM SMONM 1¥904 OS 3¥L Z0fAaTE 
INndino S1v904 OLNI TAIV1d 3d LSNWE 
ANILNOY SIHL YO4 SS3NMTY ONIAM¥1LS FHLE 


ANYHYAD LS3aM 

TauNYM vel? 

T YLSLNYZ0H 

MAd7NW DHYHNNSA Ad NALLTYM! 

W204 YO4 39ND indinos 

MSHLONY SG37 SWIM SAM¥H SNILNOM STHLE 


Perens 


Zt 
Zt 


of 


£¢ 
Ze 


Ze 
ce 


ce 
Tv 
00 


Sd 
av 
é4 
ay 
£4 
64 


ay 
6V 
TO 
40 
oT 
Sd 


90 


60 
vO 
to 


38 
J8 
OV 
09? 


on 
99 
ou 
99 
02 
oT 
WI 
G6 
SH 
cv 
qg 
64 
Oo 
84 
06 
ag 
cy 
BY 


Adg9e 
9c 
Dba m 
69F 
S19e 
GIVE 
edge 
cI9e 
ouge 
da9s 
FIL 
VO9L 
BI9EL 
GIVE 
vIPEL 
Tove 
Sd9t 
adage 
YAOL 
6H9£. 
GAPE 
£A9L 
Ta9?e 
Odes 
OagE 
Odre 
q¥0o0 
1¥00 
1900 
q¥oo 
11Y0O 
3400 
a¥00 
¥900 
6900 
000¢ 
000c 
000¢ 
000c 
000e 
000 
000E 
000 
000e 
000E 
000€ 
000€ 
000€ 
000E 
000€ 
0002 
000€ 
000€ 
000c 
000c 
000E 
000c 
000c 
000c 
000c 
000c 
000G 
000€ 
000€ 
0002 





fa 


tiny basic 


TINY BASIC Editors note 

Several of you were apparently confused as to 
how to add the Tiny Basic mods from #15 to your 
systems. I wholeheartedly recommend you pick up 
the Tiny Basic Experimenters Kit mentioned in one 
of the articles. (It's available for $15 from 
6502 Program Exchange, 2920 Moana Ln, Reno NV 
859C9. 


MICHAEL DAY 
TINY BASIC PAGE 0 MEMORY MAP 
for TOM PITTMAN's TINY BASIC TB651K V.1K 


0000 - OOOF UNUSED 

0010 - OO1F USED IN PROTO VERSIONS ONLY 
0020 - 0021 USER SPACE LOW ADDRESS 

0022 - 0023 USER SPACE HIGH ADDRESS 
0024 ~ 0025 PROGRAM END + STACK RESERVE 
0026 - 0027 TOP OF GOSUB STACK 

0028 - 0029 CURRENT BASIC LINE # 

002A - 002B IL PROGRAM COUNTER 


TVT-6/TINY BASIC INTERFACE 


by Michael Allen 
6025 Kimbark 
Chicago IL 60637 


I had a lot of trouble getting Tom Pittman's 


002C - 002D 
OO2E - 002F 
0030 - OO7F 
0080 - 0081 
0082 - 0083 


BASIC POINTER 

SAVED POINTER 

INPUT BUFFER AND COMPUTATION STACK 
RANDOM NUMBER SEED 

VARIABLE ‘A' 


0084 - 0085 VARIABLE 'B' 

OOB4 - OOB5 VARIABLE '2Z' 

OOB6 - 00B7 TRANSFER WORK POINTER 

00B8 - O0B9 MISC WORK REGISTER 

OOBA - OOBB MISC WORK REGISTER 

OOBC - OOBD TEMPORARY STORAGE REGISTER 
OOBE RUN MODE FLAG 

OOBF PRINT CONTROL 

00co INPUT BUFFER POINTER 

00c1 COMPUTATION STACK POINTER 
00c2 2nd & OF STACK POINTER (ALWAYS 00) 
0ac3 COUNTER (USED IN PN ONLY) 


oocs - 00c5 IL XQ POINTER 
00c6 - 00C7 GOSUB STACK WORK POINTER 
oocs ~ 00D7 USED IN SPHERE VERSIONS ONLY 


00D8 - OOFF UNUSED 


There are the major use of these registers 
only they may be used for other purposes on an 
availability basis. 


3. Set O20F to 08. This allows T.B. to recognize 
the ASCII backspace. 


4. Set 028C to OE. When starting T.B. at 0200 
(cold atart), this byte determines how T.B. de- 
fines the lowest address of program space. 





Tiny Basic to work with the KIM-1/TVT-6 combina-~ 
tion, Now, looking back, the input and output 5. Also be sure to set 17FE to D3 and 17FF to OA. 
routines included below seem fairly simple and 
straight-forward, So I thought I should share 
these with you to help those who may be making the 
same mistakes I was. 


I relocated SCAN to be able to reload T.B. 
from tape in one load. The version of SCAN shown 
is from Don Lancaster's Popular Electronics ar- 
ticle except for bytes OBA4 and OBCC which were 


The T. B. version I have resides in memory changed in order to display pages OCOO and ODOO. 


locations 0200 to OAC6. You must change six bytes 


within T.B. as follows; The Cursor program is adapted from Don's but 


: , Ki is much shorter as it only supports backspace and 

1. Set 0207 to C7 and 0208 to 0A. This is a jump carriage return controls--all you really need with 

to a subroutine to input a character. The input T.B. (also INPUT sets lowercase to uppercase 50 & 
routine saves the return address to T.B. then jumps you don't have to shift back and forth.) 5 
to the SCAN program and stays there until inter- 
rupted by a strobe signal from a key being pressed 
on the keyboard, If the IRQ vector has been pro- 
perly set to OAD3, a character is sent to the cur- 


KIM's Memory map now appears thus: 


: : 0020-0089 Used by tiny BASIC 
sor subroutine. Then a return is made to T.B. OOE8-OOEE Used by I/O routines 
Note that a CLI (clear interrupt status) instruc- 0200-0AC6 Tiny BASIC 
tion was inserted in SCAN (underlined in the hex 0AC7-0B79 INPUT & OUTPUT Subroutines 
dump). OB7A-OBDC SCAN 

dase ; OBDD-OBFF 34 bytes for USR subroutines (I put 

2. Set 020A to F3 and 020B to OA. This is a jump Don Box's subscripted variable SBR's 
to the output subroutine where the miscellaneous here; see KUN #5.) 
characters T.B. sends for the benefit of a tele- OCO0-ODFF TVT-6 display area 
type are trapped before falling through to the OE00~13FF 1.5K program area 


cursor subroutine. 





PRICE REDUCTION! 
RNB ENTERPRISES ANNOUNCES THE FOLLOWING PRICE REDUCTIONS: 











SYM-1 SINGLE BOARD COMPUTER (was $269) now $229 AIM-65 SINGLE BOARD COMPUTER (1K) (was $375) now $369 


BAS-1 8K Basic ROM For SYM-1 (was $159) now $89 SAME AS ABOVE WITH 4K oF RAM $419 
KTM-2 40x24 viDEO TERMINAL MODULE (WAS $349) now $319 5K Appon For 1K AIM-65 $ 50 
KTM-280 80x24 vIDEO TERMINAL MODULE Now $399 ASM ROM AssemBter For AIM-65 $ 79 

Basic ROM For AIM-65 $ 99 
VAK-5 2708 EPROM proGrammMeR (was $269) now $249 ManuaL For AIM-65 $5 


VAK-6 EPROM poarD-------- ~~~(was $129) now $119 
VAK-8 PRoTOTYPING BOARD----~ (was $49) now $39 RNB ENTERPRISES INC 
VAK-9 EXTENDER BOARD $39 2967 W. FAIRMOUNT AVE 





PHOENIX. AZ 85017 
(602) 265-7564 


VAK-3 8K EXPANSION FOR VAK-2 (was $175) now $125 
VAK-4 FULLY PopULATED 16K RAM Boarp (was $379) now $325 


JE 
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EPROM PROGRAMMERS 





LONE STAR 
ELECTRONICS 


ANNOUNCES 


The K/S Converter. Run KIM (MOS Technology) 
Software on your SYM! For the price of a blank 
2716, the K/S converter enables your SYM to: 
1. READ and WRITE KIM tapes at: 

Normal Speed 

2 X Normal Speed 

3 X Normal Speed 

6 X Normal Speed (HYPERTAPE) 














EP-2A-78 SERIES 
PROGRAMS 2708, 2716, 


EP-2A SERIES 
PROGRAMS 2708 and 2716 





EPROMS 2758, TMS 2716 and TMS 2. Run most KIM software directly (The First Book of 
* Price $59.95 Assembled and 2532 EPROMS 

Lesied * TEXTOOL ZERO FORCE KIM, for example). 
"Kil price $49.95 SOCKET The converter comes complete with a programmed 


Price $79.95 Assembled and 
Tested 
Includes Connectar 


Includes Connector 


2716 EPROM and detailed instruction for installation 
and use. 





Sottware avatlable tor the Rockwell AIM-65, MOS Technoives 
KIM-1. Svrertek SYM-1 Motorola D2. RCA VIP and many olber 
singie board Computers that use the 6502, 6800, 8080/85, 7-80. 1802 
F-8 and 2650 CP's. Stock. Specify one set of software 


Send check or money order for $59.95 for order 
UPS COD) To: 
LONE STAR ELECTRONICS 
Box 488 
Manchaca, Texas 78652 
(512) 282-3570 


Optimal Technology Inc. 
Blue Wood 127 
Earlysville, VA 22936 U.S.A. 
Phone (804) 973-5482 





The new MORE ~ board by T.T.I. is an easy to install and use expansion for the basic KIM,.* AIM.** or Kim. compatible 
micro-computer. One unique feature of this board is it's ability to program, run or copy industry standard EPROM’s--2708, 2716 (+S & 
+ 12) or 2716, 2758, TMS 2516 (+SV only). Individual program and run personality keys and software allow the user to program from 
RAM or copy data from any given EPROM into any other type EPROM, (Example: Empty two 2708's into one 2716!). Additionally. the 
board has soekets for 3K of RAM (2114's), and two zero insertion force EPROM sockets. Also featured is a 16 Bit latchable buffered 
output port with two dip headers for access. Associated with this port is a.row of 16 LED's arranged in binary sequence. All voltages 
necessary to run and program the EPROMS are generated on board. Only +5 and +12 volt supplies are required. (Approximately 200 
MA from each supply). 

Standard 22 pin edge connectors allow the board to be plugged onto the KIM* or Kim compatible machine. All signal tines are 
passed through the MORE “board and are made available in total on standard 22 pin paddie cards. 

The MORE™board and KIM® or equivalent, make a low. cost and excellent dedicated controller, educational tool, hobby computer 
expansion or development system. 

The price with prepaid shipping in U.S. is $169.95-includes 8 personality keys. T.TA. 
documentation, and software listings. Options---software on tape for AIM*®* or P.O. Box 2328 
KIM®* $10.00---Software in 2708 EPROM for $30.00. Cookeville, TN. 38501 


*Product of MOS Technology **Product of Rockwell 615-526-7579 
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KIMSI, S-100 


16K RAM MOD 


from Vince Coppola 
12 Charles St. 
Plantsville, CT 06479 


I have installed the Digital Research $-100, 
16K static RAM board sucessfully in my KIM-KIMSAI 
system, with only one minor modification, Remem- 
ber, the board uses 2114 1Kx4 bit RAMS, so for 4K 
of memory all you need is 8 RAM chips. Also, the 
board can be depopulated to one 4K block or any 
multiple of 4K right on up to the full 16K. The 
manufacturer also states that a full blown board 
will draw less that 2 amps, 


The modification I came up with, consists of 
grounding pin 75 of the board, This is done be- 
cause pin 75 on the KIMSAI is not used and is 
therefore left floating. By grounding it and in- 
serting the associated jumper, pin 4 of U-43 will 
be brought low therefore presetting the flip-flop 
and siabling the bank-select circuitry. Also, the 
enable LED should now stay always lit. 


(EDITORS' NOTE-Vince also told mea Little about 
the CGRS disk system that he has rzunning on his 
KIMST. 1'2£2 tay to get more details on this sys- 
tem f20m CGRS for 
the next 4ssue). 


SYM BASIC CASSETTE NOTES 
from Eugene Garapic 
14231 Thompson 
Brookpark, OH 44142 


I've found a bug in SYM BASIC. 


The problem is that you can’t save or load 
Basic programs from WARM START. You can see the 
problem if you leave Basic and then re-enter Basic 
through the WARM START location (so as not to clear 
the BASIC program). You'll find it impossible to 
gave the program on tape in the Basic format. 


Fortunately, the fix isn't difficult. Simply 
key in the following machine language program when 
you want to re-enter Basic. Install this routine 
in high memory as not to interfere with your Basic 
program. 


20 86 8B JSR ACCESS; UNPROTECT SYSTEM RAM 
4C 00 OC JMP WARMSTART; AND RE-ENTER BASIC 


WARM START is at location $0000 and jumps to 
location $C27E. COLD START is at $C000 and jumps 
to SDE6D. 


As for the SYM cassette interface: 


Put a capacitor in series with the SYM audio 
output for 1000% better results, Why? Because 
this isolates the D.C. component in SYM's audio 
output from the recorder input. (a .01 uf works 
fine). 


The cassette recorder must have enough power 
to drive SYM's LED recording indicator or else 
you are working in the critical mode and will get 
unpredictable results. Use a recorder with at 
least 1 watt output. The SANKYO ST-50 (available 
locally for about $40.00) cassette recorder has a 
tape counter, automatic shutoff, and works great 
with SYM, 


SYM ON-BOARD SPEAKER TOGGLE ROUTINE 
from Bruce McKenzie 


This is a subroutine to invert the state of 
the SYM's on-board speaker, If it is called reg- 
ularly, it will produce an audible tone. Use it 
as you would ‘INC 1700' on the KIM, or ‘INC A000' 
on the SYM. This routine saves all registers, and 
is totally relocatable. As it stands now, memory 
locations 90D and 91C must be modified to point to 
an unused zero page location to hold the flag. 


One final word- the speaker, being electro- 
static works best at higher frequencies. 


0090 XX Flag location-will be either '06' 
or '08' 

0900 20 88 81 JSR SAVER 

0903 D8 CLD 

0904 AQ OD LDA #0D 


0906 20 86 8B JSR ACCESS 
0909 20 A5 89 JSR CONFIG 


o090c A5 90 LDA FLAG 
O90E C9 06 CMP #06 
0910 FO 06 BEQ *+6 
0912 A9 06 LDA #06 
0914 DO 02 BNE *¥+2 
0916 A9 08 LDA #08 
0918 8D 02 A& STA OUTREG 
091B 85 90 STA FLAG 
091D 4c C4 81 JMP RESALL 
0920 


Courtesy of the San Fernando Valley 6502 
Users Group. 


AIM info 


Some Useful 
AIM NOTES 


from Al Davidson 
5746 Ballenmoor 
Memphis TN 38118 


Rockwell has come up with the KIM owner's fin- 
est fantasy. Easy-on-the-eye display, easy-~to-op~ 
erate cassette interface, easy-to-peck-on-keyboard, 
easy-to-use printer; It's all there, 6502 fans! 


The bare AIM 65 is a prize alone, not to men- 
tion basic, which is at last her (got mine 6/20). 


This is certainly the machine for the bells 
and whistles addict, but you want more? Here are 
a few tried and true suggestions-~-~~- 


connecting pin 12,210 to pin 5,210. Connect pin 
12 to the common on a spdt switch. Also connect 
pin 5,210 and pin 8,Z10 to the remaining two term~ 
inals on the switch. This allows you to select 1 
or 2MHZ operation. The printer operates a great 
deal less than perfect at 2M, and of course, the 
cassette info will be twice as fast, This may or 
may not agree with your recorder, but it performs 
200% with the superscope mod# C-108,. A more 
elaborate means for switching may incorporate the 
CS line for Z32, which is used for both printer 
and cassette. This could slow the clock down to 
1MH2 when the cassette or printer are being "spo- 
ken" to. 


By the way, doubling the proc. speed has no 
detremental effects on the machine when running 
basic along with an extra 4K of 2116 memory added 
on-board piggy~back style. Fast-Basic fans, take 
notel! (This is however, recommended for on-board 
systems only.) 


more —> 


of/ 





2716's- The ROM sockets on-board can easily be 
used for 2716 (5V) eproms. Cut the run under the 
socket connecting pin 18 to all, and jumper 18 to 
gnd. Since the 2716 is only a 2K eprom, it appears 
twice in memory; at the first and second 2K bound- 
arys of the socket. If you don't mind that, plug 
"em in! 


KIMSI- -The AIM is billed as being hardware con- 
patible with KIM-close! But no cigar! The differ- 
ence (other than obvious address decoding brought 
out to the connectors) is in the generation of RAM 
R/W on pin E-Z. The KIM circuit nands buffered 
phase 2 with inverted R/W. The AIM nands buffered 
phase 2 with buffered R/W. El Wrongo! But easy 
to remedy, if you're surgically inclined. First, 
disable the sys R/W to pin 4, Z13. Cut the trace 
at pin 4 and also the trace that ruas under the 
cip and towards Z32. Now, jumper pin 4,Z13 to pin 
5,Z16, which is the correct phase of the R/W line. 
Now, to re-establish R/W to 232, jumper pin 22,232 
to pin 6,216. This takes care of the RAM R/W dif- 
ference, 


219 #14 
427 #7 
z27 4q 
Z27 #10 






K-ENDBLE 
227 #11 - : 
227 #)\2-— adil 


FIGL. Geneemes wen) K-ENABLE surrnaté For 
Aim memory mar, S&e Atso Kims/, 
MaNAL PAGE Hb (3) FIGURE'C., 


Next, to accomodate AIM's memory map, we have 
to create a new K-enable. This is explained on 
page A4(2) of the KIMSI manual, but the general 
idea is to tell the KIMSI to turn itself off when 
the proc. is "talking" to a device on it's own 
board. I used the circuit in fig. 1 on a small 
piece of breadboard mounted on the AIM. This, I 
thought, was better than running 8 lines to the 
KIMSI prototype area. As explained in the KIMSI 
manual. The KIMSI decoding circuitry has to be 
disabled by cutting the "“V" shaped run under the 
board at Z11, pin 1l. 


Now, connect ‘the new K-enable line to KIMSI 
pin 4 and enjoy! 


These two mods render a trouble-free machine, 
as far as AIM~KIMSI interface goes, but the extra 
circuitry along with the added lead length to the 
KIMSI prohibits the use of a 2 MHZ clock. 


The 9-digit Microsoft Basic-in-ROM is certain- 
ly worth the 100 bucks. Room is provided on hoard 
for the ROMS. The peek and poke statements make 


access to ports and memory convenient, & the ‘wait' 
statement provides high-level port-watching that's 
easy. Access to user machine language routines 
could have been easier, but at least it's provided 
for. Cassette save & load commands are certainly 
worth honorable mention, too. 


This is a real 8K basic, with an impressive 
list of string handling and arithmetic functions 
not to mention the usefulness of the error codes 
and good documentation. 


Although the basic is well incorporated into 
the AIM system using the keyboard, printer, and 
display, user I/O may easily be used instead, as 
with all the other AIM 1/0 functions, (I'm using 
a KENT-MOORE video board in the KIMSI for output). 


oll 


AIM TAPE PROBLEMS 


from Steve Bresson 
1666 Independence Ct 
Severn, MD 21144 


I have found two problems with the AIM65, both 
in the tape I/O area. 


I. The first is in using the LOAD, (L), com- 
mand to input object code from tape. When the last 
record of a file occurs within 6 or 7 bytes of the 
end of a BLOCK, the loader will either hang up 
while looking for another block of input, or give 
an ERROR when it finds another block, which does 
not have the correct block number. 


The error is in the LOAD ($E2E6) program. It 
first reads the record length, and then the ADDRESS/ 
# of Records, depending on the type of record. If 
the record length in 00, then the record is the 
last in the file, and it attempts to read (5+1= 6 
bytes from the input buffer. But there are only oy 
bytes left from the valid input data, 80 that if 
there is enough garbage at the end of the buffer, 
nothing will happen. When the last byte of the 
record occurs in the last 2 bytes of the buffer, 
the input routine attempts to read another block 
to get the additional data. This causes the hang- 
up/error. 


i Ex ES 
Becin Fire [BAKA Ficcname 0 | Record / Record 


NoRMat ta] “loons | sracrine ane [para p0| 
Last Reconp cHEcKsum | BD 


The error can be easily shown by the follow- 
ing procedure: 


1) place known data in $200-220 

2) do a DUMP, (D), to tape, (T) and dump the 
following blocks of data in one file: 

$200-217, 
$200-207, 
$200-209, 

3) rewind the tape and check it using the 
verify, (3), command. This should show 
no probiems 

4) rewind again, and attempt to load, (L). 
When it hangs, do a RESET, and look in the 
tape buffer ($116-165). Your data should 
be there along with the record data. 


NOTE: While this problem may not occur too 
often, it can be a pain when it does, if you do 
not know what is happening. 


II. The second problem is an incompatability 
between the AIM BASIC tape output and that used by 
the TEXT EDITOR, and expected by the verify, (3) 
command, The text editor puts out, and expects to 
receive a text file ended with a double (CR). Ba- 
sic can read a text editor file as long as a (ctl- 
Z) is the last character in the file before the 
(CR) (CR). But, when Basic writes a file, it puts 
out a (CR) (LF) (CR) (LF) (CTL-Z) at the ends Both 
the editor and verify hang-up when reading this. 














SOME PERSONAL VIEWS ON HOW AIM COMPARES... 


AIM vs KIM 


10. 


ll. 


by Jim Butterfield 
Toronto 


AIM cost more. 

The AIM power supply is a bit tougher than 
KIM's: 24 volts at 0.5 amperes is harder to 
procure than KIM's 12 volts at about 0.1 amp, 
even allowing for the fact that the 24 volts 
doesn't need regulation. 

AIM's display is larger, but tougher to work, 
since it's mostly planned for serial ASCII in- 
put; you can't get to individual segments as 
you can with KIM. 

KIM has a more flexible system for re~arrang- 
ing memory; AIM is directed more towards a com- 
pletely fixed memory map. 

AIM's built-in printer is a great bonus, even 
if you have to live with 20 columns, 

The basic AIM system has spendid monitor fea- 
tures, including Single-step and Breakpoint, 
with options such as register display and next- 
instruction disassembly. 

AIM also has a disassembler and mini-assembler 
in the basic monitor;:they are very handy. 
AIM's plug-in assembler and plug-in Basic chips 
make these enhancements simple to add. Extra 
memory (up to 4K) also goes on-board, 

There are cassette recorder control lines for 
AIM, although I haven't been able to make mine 
work. AIM will write KIM-compatible tape; but 
its own format is quite nice, and the display 
gives you a running commentary on what's hap- 
pening during saves and loads, 

The text editor is a nice built-in feature; 9. 
mot an earth-shaker, but handy enough, 

KIMs outnumber AIMs by a very large margin. 

There are more opportunities to find other KIM- 

users, programs, efc. 


6522 USER NOTES 


65XX chip family 


from John T. O'Donell 
Aydin Monitor Systems 
401 Commerce Drive 
Fort Washington PA 19034 


Recently attended a marketing presentation by 
Synertek in Philadelphia. Conrad Boisvert of 
Synertek introduced their 6500 family UP's and 
support chips including the 6522. Enclosed 
you will find a copy of the SY6522 spec doc- 
ument given out at the presentation. Haven't 
gone thru all of it in detail but it appears 
to answer a lot of questions and correct a 

lot of errors found in the MOS Technology 
document, 


Conrad says that Synertek has corrected the 
problem with the shift register shifting in 

at system clock rate and generating 9 clock 
pulses per shift operation instead of 8, The 
corrected devices are supposed to be available 
now, but, according to Conrad, there is no 
change to the part number. Thus you have to 
go by date code (buy the most recent). 


The uncorrected device can still be used for 
shifting in at system clock rate since it does 
stop shifting and generates an interrupt af- 
ter 8 clock pulsrs. The extra shift clock 
pulse presents a problem only for the device 
providing the serial data. If that device 
readies more than 8 bits at a time in its 
serial output shift register then there will 
be a problem. However, if after each serial 
byte transfer the controlling UP causes the 
remote device to load its next byte into its 
serial output register then the extra clock 
pulse will be ignored. Naturally there is no 
problem if the remote device is another 6522. 


AIM vs PET 


PET costs more. 

PET’s power supply is built in; you have to go 
hunting for an AIM power supply, and it's ex- 
tra, 

The full CRT display of the PET is of course 
much more useful than AIM's little 20-charac- 
ter LED strip. PET also has graphics and/or 
lower case. PET's CRT, however, increases 
weight and size; AIM (when suitably packaged) 
is far more portable. 

AIM may be expanded on-board to 4K; depending 
on the model, PET may have up to 32K of RAM 
built in. 

PET does not come with a printer; AIM does. It 
costs a fair piece of change to add a printer 
to PET, although such a printer would of course 
have more than 20 columns. AIM has a built-in 
teletype interface if needed; PET needs an a~ 
dapter to do this. 

AIM’s monitor is excellent for machine-language 
work, PET's machine language monitor is much 
less powerful. Enhanced monitors are being 
passed through the PET user community, but even 
these don't have all the features that are built 
into AIM. 

AIM Basic (an optional extra) is very similar 
to that of PET. Pet's is somewhat better. I 
particularly miss the SYS command which isn‘t 
available on AIM. Basic file handling is some~- 
what better on the PET. 

PET can be expanded with disk and printer to a 
quite powerful standard system. AIM is capable 
of this, but there are no standard Rockwell 
products for this kind of expansion, and each 


user tends to be on his own, 

PET" outnumber AIMs by a large margin. There 
are mOre opportunities to find other PET-users, 
programs, etc, 


stuff 


Having said all that we come to a subtlety in 
the timing of the shift-in operation chat will 
cause a problem if the remote device is other 
than another 6522. The subtlety involves the 
timing relationship of the data on CB2 to the 
rising edge of the shift clock on CBl: the 
data should be held stable for one full 02 
clock cycle after the rising edge of CBi shift 
pulse, In our application we wanted to load 

a byte of data into a 74L8299 universal shift 
register and then shift it into a 6522. So 

we connected the serial output of the LS299 

to CB2 and connected the shift clock from CBl 
to the SL299 clock input. We were using 
shift-in at system clock rate and each byte 
acquired was shifted left by 1 bit. When IL 
observed that there were 9 shift clocks I 
thought I had the answer to the problem and 
called MOS TECHNOLOGY to find out what to do 
about it. 


I spoke to Rich Gapin there who told me thet 
although there are 9 shift clocks the 6522 
interrupts and stops shifting after 8 so that 
wasn't the cause of the problem. Subsequent 
discussion revealed the timing constraints and 
made apparent that there had to be an extra 
stage of storage between the output of the LS 
299 and CB2. Consequently the serial input 
data goes to the D input of a 74LS74 clocked 
by the CB] shift clock. Q output of the LS74 
connects to CB2. The LS299 and LS74 both 
shift data on the rising edge of the clock. 


Therefore each bit shifted out of the LS299 
will be stable at CB2 input immediately af- 
ter CB1l clock rising edge, 


we 





A COUPLE OF 6522 APPLICATIONS NOTES 


from Conrad Boisvert 
Synertek Inc 


SY6522 Generating Long Timed Intervals 


The SY¥6522 Versatile Interface Adapter con-— 
tains two 16-bit counter/timers for a variety of 
purposes, among them the generation of timed in- 
terrupts. Each counter is 16 bits long, so the 
maximum count-down is 916 or 65,536 counts. With 
a 1MHz processor clock rate, this translates to a 
Maximum time of about 65.5 msec. 


In some cases, this may not be long enough. 
To achieve longer timed intervals, several schemes 
may be used, Among them are: 


l. Increment or decrement a memory location 
each time the timer interrupt occurs. In this way, 
an additional factor of up to 256x can be achieved, 
resulting in a maximum of about 16.8 seconds. How- 
ever, extra program steps are needed, 


2. The two SY6522 timers may be connected 
externally (Figure 1), resulting in an effective 
32-bit counter/timer, In this way, intervals long- 
er than one hour may be achieved, 


To Timer T2 pulse-count mode on PB6 


Processor 
Interrupt 





Timer Tl free-run output mode on PB7 
Figure 1-Connection to Use Tl and T2 as 32-bit 
Counter 


To cascade the two counters 
necessary to do the following: 


together it is 


1. Connect PB6 and PB7 together. These pins 
will not be useable as general I/O functions in 
this case. 

2. Program Tl mode to free-run with output 
on PB7., 

3. Program T2 mode to count pulses on PB6 
input. : 


In this way, the waveform on PB7 is, 


rar Count_ {71 count. 
X $2 Period! X $2 Period 


Since timer T2 pulse-counting mode counta 
negative-edge transistions, it is clear that T2 
will decrement as follows: 


Thus, T2 decrements will occur at the follow- 
ing intervals, 


PB? 
Output 


T2 RATE=2x (Tl COUNT) x (02 PERIOD) 


And, hence, the total time will be, 


T = 2x(T1l count) x (T2 count) x ($2 period) 


Thus, the maximum is 2 X 65,536 x 65,536 x1 
us = 8590 seconds = 142 minutes = about 2% hours. 


4 





SY6522 - GENERATING A 1Hz SQUARE-WAVE SIGNAL 
2210262 TBE 


The SY6522 (Versatile Interface Adapter) has 
two integral 16-bit timers interded to perform a 
variety of programmable functions. One capability 
is to use timer Tl to generate a continuous square 
wave output on peripheral pin PB7. 


The timer is clocked by the system clock, 2, 
which normally operates at 1MHz. The waveform 
generated is illustrated in Figure l. 


P87 
OUTPUT 


N+2 CYCLES 


Figure 1 - PB7 output Waveform 


Note that the period of the waveform is 2N+4 
cycles, with a 16-bit counter, the maximum number 
of cycles is where N is the number set into the 
timer. 


Nyax=2) 6-1 = 65,535 


Hence, the maximum programmable period is 


Pwax=2Nmayt4= 131,074 cycles. 


This is about 131 msec for a 1MHz system clock, 


considerably 1ess than 1000 msec, the period of a 
lHz signal. 


One way to extend the period is to use the 
PB7 output signal as a clock input to the shift 
register on the SY¥6522. If a pattern of 11110000 
is set into the shift register, then the output of 
the shift register will appear as in Figure 2, 


SY¥6522 


PB? 


cB) Ll 


cBe 


2n+4 


PB7/CBI | | | | 
|_| Ll es ae 
CB2 | | 
fcc stlanre 


Figure 2-- Shift Register Output Waveform 


Note that the period is extended by a factor 
of 8 by this method, 


Puax78 C2N+4) 


for 1 Hz, PMAX = 1,000,000 and N = 62, 
498. Thus, it is necessary to store the number, 
62,498, into the timer Tl in order to generate the 
1 Hz waveform, When translated into hexadecimal 
format, the result is F422, and F4 is loaded into 
the high byte and 22 into the low. The step-by- 
step sequence for programming this is shown in 
Figure 3. 


Hence, 


Note the expecially the following points: 


* Loading the Tl high-order counter (Register 
5) initiates the timer in its free-running 
mode. 

* PB7 data direction must be set to an out- 
put for the pulses to occur. 




















0005 2000 





*PROGRAM TO GENERATE 1HZ SQUARE-WAVE GUTFUT 


0010 2000 90N 6522 PR7 OUTPUT FIN USING T1 TIMER 

0015 2000 ,ANE) SHIFT REGISTER 

0020 2000 ; 

0025 2000 joveen----+8Y6522 ADNRESSES-~~=---~-- 

0030 2000 DORK =$AB02 STATA DIRECTION REG 
0035 2000 TACH ; #T1 HIGH BYTE 

00460 2000 TALL $3T1 LOW RYTE 

0045 2000 SR =$AB0A #SHIFT REGISTER 

0050) «2000 ACR =$ABOR *AUXILIARY CONTROL REG 
0055 2000 ; 

0060 2000 x =$0200 #START ADDRESS 

0065 0200 

0070 0200 A FO LIA #%11110006 

0075 0202 BH OA AB STA SR sSTORE SHIFT FATTERN 
0080 0205 Ag nC LOA #$0C 

0085 0207 8D OB AB STA ACR *SET UF T1 AND SHIFT REG 
0090 020A AY 22 LUA #622 

0085 O20C BL O06 AB STA TALL sLOW BYTE 

0100 O20F Ad F4 LDA #$F4 

0105 O211 6h 05 AB STA T1CH #HIGH RYTE + START 
0110 O214 AS 80 LIA #%80 

0115 0216 BF O02 AB STA DERE *SET FR? AS QUTFUT 


0120 0219 
0125 O21C 
0130 O21C + ENIt 


4C 19 02 LOOF JMPF LOOF 


6551 ACIA MINI-SPECS 


SYNERTEK has recently released a very inter- 
esting new addition to the 65XX family. It's 
called the 6551 Asynchronous Communication Inter- 
face Adapter (ACIA) and is a considerable upgrade 
to the present Motorola 6850 ACIA, The best fea- 
ture of the 6551 is the on-chip baud rate genera- 
tor. The baud rate is software programmable and 
generates 15 baud rates (50 to 19,2 K baud) from 
a standard 1.8432 MHZ external Xtal, There's al- 
so an external 16X clock input for non-standard 
baud rates (up to 125 Kbaud). I just finished 
wire wrapping up an HDE prototyping card, with 
two 6551's which are driven by a single 1.8432 
MHZ Xtal in a TTL oscillator configuration. (By 
the way, I'm using the lowest cost battery oper~ 
ated wire-wrap gun from OK Machine & Tool and it's 
been working like a champ. I whole heartedly 
recommend wirewrap for getting prototypes up and 
debugged quickly.) 


yt! 


UGS * 


THE CASE OF THE SWITCHED SOFTWARE 


a. 





Bruce Nazarian 


Sharp-eyed readers of 6502 Notes will already 
have noticed my inadvertent error in issue #15, 
re: music mods, 


Author Armand Camus is, in fact, quite cor- 
rect in his references to the page zero locations 
used in his software. Not having the original 
software (as published in BYTE) handy, I had no 
way to know his references weren't incorrect: so, 
be aware, you KIM music lovers-the BYTE (also COM- 
PUTERIST) software is not the same as the Advanced 
Music Software being marketed by MTU, 


Also, in recent conversations with Dave Cox, 
Marketing manager for MTU, I was advised of the 
existence of a NEW KIM DAC board, which Dave as- 
sures me will outperform the old DAC,..1t must be 
quite a board, as the old DAC was nothing to sneeze 
at! Several changes have been made, but all for 
the better, The new board only requires a single 
supply voltage (+5), and should have an improved 
Signal-to-noise ratio over the old one. I have 
ordered a new one from them and will have a user's 
report as soon ase I have it up and running. 


sFROGRAM HALT 


This board will serve as the system I/O mod- 
ule for use by my homebrew 6512 CPU board in my 
“dream machine", 


One of the 655lewill be used by my Hazel- 
tine CRT while the other will be driving my print- 
er. Both will be RS-232. Later, I may build up 
another board for modem control. 


The 6551 is, of course, fully programm- 
able as far as: word lengths; number of stop bits; 
parity bit generation and detection; interrupt 
operation etc. Also, modem control signals are 
provided. A very versatile chip indeed! 


Get more info from SYNERTEK or ROCKWELL, 


Eric 


My sincere apologi 
gles tO any readers I ma 
have caught off-guard with my software wipes 
> 


and sincere apologies to i 
Waveve pe g author Camus for doubting 


BUGS IN #15, PAGE 4 


There are some errors in the wiring sketch 
(fig. 4) for the dynamic RAM board. The schematic 
on the pre ious page is believed correct however. 
The problem in the wiring sketch involves place- 
ment of the address lines so the sketch is still 
useable once the address lines are referenced to 
the correct pins on the RAM chips. 


BUGS IN #15 PAGE 22,23 


The article by Cass Lewart, 1:32640 should be 
1:32896 the ocrrect formula is: 


(FF hex + 2) (FF hex + 1) 


mune anaes 
and the last row of numbers in the table should be: 


32.9 ms, 263 ms, 2.11 ms, 33.7 sec. 


K = 0 


PAGE 26 


Reverse the polarity of the diode placed a- 


cross the 5 volt relay. 





would only have about 234K of user workspace. But 
I need to have the memory continuous for my Tiny 
Basic which starts at 0200. So I set up my memory 
as follows: 


4K from 0000 to OFFF for page zero and I/O to ¢ 
teletype, CRT, and KC format tape; 


READ KIM TAPES ON YOUR OSI SYSTEM 
8K from 2000 to 3FFF for general use (inclu-- 











By Robert Solomon . ding Focal); and 4K which can be placed at either 
5868 Joanne Ct. 1000 ro 1FFF ro 4000 to 4FFF controlled by a front 
North Ridgeville OH 44039 panel DPDT switch. 

In my previous letter, I stated that I was Now I can run either Tiny or Focal and have 
developing a high speed PLL tape interface for the workspace located as needed based on the front 
OSI. After looking at the benefits of that ap- Panel switch position. I also plan on using 9- 
proach, I have abandoned that idea, It would be of digit Microsoft KIM Basic located from 2000 up. 
much greater help to the OSI experimenter to in- 
crease his access to cassette-based experimenter i All I need is a method to load KIM tapes into 
software. the OSI. There is also a high speed tape format 

for KIM called hypertape; and Lou Edwards has a~ 

A greater amount of 6502 experimenter soft- vailable a 4800 baud Zip-tape system for KIM. It 
ware is available to the KIM owner than will prob- would be nice to be able to use these on the OSI. 
ably ever be available to the OSI owner. So all 
that needs to be done is to make the OSI system Implementing the 6530 chip was not quite as 
compatable with the KIM tape format, I have an simple as one would expect, In order to under- 
OSI 404V CPU and the owners manual says you can stand the problems, you need to understand the KIM 
install a KIM chip on the board. It is not quite program. (Anyone contemplating using the KIM sim- 
that easy, as I found out when I studied the oper- ulator should get a copy of the KIM-1 Users Manual.) 
aiton of the KIM 6530 chip. The solution to that 
problem is explained in this article. Each 6530 includes 1K of ROM, 64 bytes of RAM, 

ifo ports, and a timer. Th 0-002 chip ROM con- 

As I described in my previous letter, I have tains the KIM keyboard, di ay, and TTY operating 
a 16K system consisting of two 4K boards and one The 6530-003 chip ROM contains the tape 
8K board. I also stated I was in the process of interface Program. The problem is that the -003 
implementing KIM Focal 65. Focal for KIM resides ROM program uses the RAM, I/O, and timer on the -002 
at 2000 to 360A with user program above 360A. If chip! The tape programs also exit to a location in 
my 16K of memory were continuous from 0000, I the -002 ROM. 

ws 


voeorenmenmts MYX OUT 
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The solution to this problem is shown in the 
second schematic. I managed to fit it all on the 
CPU board, but I recommend putting it on a separ- 
ate board. Then you could install the tpae inter- 
face circuit on the board also. (A prototype 
board is available from D&N Micro Products, 3932 
Oakhurst Dr., Fort Wayne, IN, 46815, for $27.00 
including postage, handling, and connectors.) My 
solution involved circuitry to make the 6530-003 
use its own RAM, I/O, and Timer for the tape func- 
tions. I also implemented a 1K RAM at 1C00 to IFFF 
and the tape program will exit into this RAM. 


The 7404, 7420, and 74145 decode the six high 
order address lines to provide the selects for the 
6530 1/0, Timer, and RAM. (K5_ to CS1 for 1400- 
17FF); 6530 ROM (x6 to RSO for 1800-1BFF); and the 
1K RAM (K7 to 2102 CE for 1COO-1FFF) Address lines 
AO thru AQ9 go directly to the 6530 except for A6. 
The proper handling of A6 is really the solution 
to the whole problem. 


The selection between the 6530-002 and the 
6530-003 is made by RSO and A6. When RSO is low, 
AO thru A9 must directly access the 6530. RSO for 
the 003 is connected to K6 and the RSO for the 002 


is normally connected to K7. I use K7 to select 
the 1K RAM instead of the 002 chip. When &SO is 
high, the 6530 is selected by CS1 being low. Both 
the 002 and 003 respond to K5 connected to CS1. 
The 002 and 003 are distinguished by the status of 
A6. A high on A6 selects the 002 and a low on A6 
selects the 003, 


So all we have to do is invert A6 to select 
the 003 I/0, RAM, and Timer for the tape interface, 
I used the 7486 Exclusive-OR gate to perform this 
function. When K6 is low (ROM Select) A6 is not 
inverted and we have access to the tape program in 
ROM, When K6 is high (at all other times) A6 is 
inverted and we have access to the 6530-003 RAM, 
I/0, and Timer to support the KIM tape interface. 


The 1K RAM is necessary because the tape ROM 
program exits to an address in the 6530-002 ROM 
program. Unless we have something at that destin- 
aiton, the machine could run wild and do who knows 
what to the program. An advantage of having this 
1K RAM is that you can run KIM programs as is, with 
appropriate vectors or subroutines in the 1K RAM. 
This will make it unnecessary to make patches with- 
in the main program in many cases, 


You will notice that there is a disable switch 
in the 6530 circuit. Since my system has that mov- 
able 4K block of memory, I cannot have the 6530 or 
1K RAM functional when the block is located at 1000- 
1FFF. I have done this by disabling the 7420 de- 
coder IC and by forcing the R/W low to both the OR- 
wired 7403 on the 1K RAM and the 6530. This pre- 
vents both systems from putting data onto the data 
bus when they are disabled. 


Now that we have the hardware, we need the 
software to make it work. At this point, I will 
leave this up to the reader, In the future, I plan 
to submit software information, (Boy! what a sneaky 
way to make you subscribe to User Notes). Besides, 
I have to leave room in this issue for other stuff. 


To 2082 
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WHAT IS KIMATH? 


Some of you have asked for more details on 
the KIMATH program that we are making available. 


KIMATH is a group of floating-point math sub- 
routines capable of performing operations up to 16 
decimal digits of precision. The functions sup- 
ported by KIMATH include ADD, SUBTRACT, MULTIPLY, 
DIVIDE, LOG, ANTILOG, TANGENT, ARTANGENT, and 
SQUARE ROOT: Special subroutines are included to 
evaluate polynomial expressions, which can be used 
to approximate most math functions. 


It should be stressed that KIMATH ig not a 
complete math package, only a group of subroutines. 
(1/0 routines are left up to the user). This means 
KIMATH is totally independent of any operating sys- 
tem dependencies and makes this package useful for 
most any 6502 based machines, (such as SYM & AIM) 
not just KIM. 


Basically, you would load one or two special 
register areas (each register can be up to about 
20 bytes in length) with the number (s) to be 
worked on and then call the proper subroutines in 
KIMATH to do the operation. KIMATH only operates 
on numbers in an unpacked BCD format, but routines 
are provided to convert to and from other data 
formats such as packed BCD, and unpacked ASCII for 
easier storage and output data formatting. (That's 
right, KIMATH does its calculating in BCD, not 
binary). 


A useful addition to KIMATH, called MATHPAG, 
was published in Doctor Dobbs Journal! (volume 2 
Issue #10). MATHPAC provides the needed 1/0 rou- 
tines and a host of other features, such as vari- 
able storage and extended computational ranges 
not possible with KIMATH alone, MATHPAC needs 2K 
of additional memory. 


Additional info on KIMATH should be gotten 
from the KIMATH manual ~ available for around 
$15.00 from several sources including: 


Johnson Computer A B Computers 
P.O, Box 523 Box 104 

Medina Oh 44256 Perkasie Pa 18944 
216-725-4560 215-257-8195 


Falk-Baker 

382 Franklin Avenue 
Nutley NJ 07110 
201-661-2430 


The KIMATH manual contains a complete source 
listing of KIMATH. 


KIMATH ON CASSETTE OR EPROM FOR AIM, SYM & KIM ©Aeece 





KIMATH is now available assembled to any 
location, and comes with a sorted symbol table for 
easy routine lookup. 


ON KIM COMPATIBLE CASSETTE FOR AIM,SYM,KIM $20.00 


ON 2Kx8 5y. EPROM (TI 2516 or INTEL 2716) $80.00 
(PPLE VER S10" 18 OWLS AYMILAALE 


ORDERING INFORMATION: Ov EPROM) 


You must include the following information 
with your order for cassette and EPROM versions 
of KIMATH: 


Hex starting address for main program (normally 
$F800) 

Hex starting address for 23 bytes of zero-page 
storage (normally $0000) 

Hex starting address for 154 bytes of RAM for the 
argument registers (normally $0200) 


ORDER FROM: 
6502 USER NOTES, POB 33093, N. Royalton, Ohio 


pegs) 


REVIEWS ETC. 


PRODUCT REVIEW by the Editor 


THE MORE BOARD FROM T.T.1.* 
Frankly, I wasn't exactly overjoyed when I 
received this product for review. After all, why 
should 3K of RAM expansion turn me on when I had 
over 10 times that much on my regular system. 


My big change in attitude concerning the MORE 
board came after I realized that my other EPROM 
burner just would not program the Texas Instru- 
ments 2716 because of incompatabilities. 


I even started to design an EPROM burner that 
would program the TI2716 when I suddenly realized 
that the solution to the problem was already at 
hand, 


Upon a closer look at the MORE board, I dis- 
covered a very nicely engineered EPROM programmirg 
system which works with all of the popular EPROMS 
(2708, INTEL 2716, TI 2716, and 2516) eliminates 
the need for any voltages besides the usual KIM 
+5 and +12, and includes enough RAM on-board to 
solve the problem of how to burn a 2K EPROM when 
you have only 512 bytes of useable RAM. 


The MORE board has turned my spare KIM into 
an EPROM programming system which has twice the 
capability of some of the commercial EPROM pro- 
gramming units at a fraction of the cost. 


I haven't gotten around to burning the T12716 
yet, but I have put my disk system bootstrap into 
a 2708. The board performed flawlessly. Since 
MORE has two on-board EPROM sockets (one for pro- 
gramming and the other mapped into normal memory 
space), EPROMS can easily be copied. Of course, 
the EPROM burning software (which is included with 
the MORE in the fotm of complete source listings) 
can be relocated and burned into a 2708 for semi- 
permanent storage in the memory-mapped EPROM sock- 
et if you really don't need this copying capabili- 
ty. 


The only negative things I can say about the 
MORE board are that I had to do a little trimming 
on the connector to get it hooked up to KIM and 
the preliminary documentation has a few soft spots. 


A small file took care of the first problem 
and the second problem, according to T.T.I., is 
in the process of being corrected. 


I forgot to mention that the board appears to 
be of industrial quality with all iC's socketed and 
two quick load zero insertion Textool sockets for 
the EPROMS. No EPROMS or RAMS are included. MORE 
comes fully assembled and, according to T.T.I. can 
also be used on the Rockwell AIM system. 


I'm happy with the MORE board, plan on using 
more EPROMS in the near future and will probably 
cause a real scene when T.T.1. asks for their board 


back! % ‘ 4 
MORE wu awnaiable for ITO from 


T.T.1., POB 2328, LN is Tn 38501. 


PRODUCT ANNOUNCEMENT 
FLOPPY DISK FOR THE AIM-65 


COMPAS Microsystems (224 S.E. 16th St, Ames, 
Towa 50010) announces availability of a mini~flop- 
py interface for the AIM-65. 


“the base price of $850 includes DAIM control~ 
ler board with all operating system in EPROM, pow- 
er supply and one packaged disk drive. Price for 
an additional drive is $350. The components of 
the DAIM system may also be purchased on an in- 
dividual basis if the user desires. Delivery is 
stock to sixty days. The system is currently in 
production. A complete operating manual will be 
supplied for gvaluation purposes for the nominal 
charge of $5." 


&. 








6502 FORTH 


& * 6502 FORTH 1S A COMPLETE PROGRAMMING SYSTEM WHICH CONTAINS 6502 FORTH PRICE LIST 
AN INTERPRETER/COMPILER AS WELL AS AN ASSEMBLER 
AND EDITOR, KIM CASSETTE, USER MANUAL, AND 


* 6502 FORTH RUNS ON A KIM-1 WITH A SERIAL TERMINAL. 
(TERMINAL SHOULD BE AT LEAST 64 CHR. WIDE) 

* ALL TERMINAL I/O IS FUNNELLED THROUGH A JUMP TABLE NEAR 
THE BEGINNING OF THE SOFTWARE AND CAN EASILY BE 
CHANGED TO JUMP TO USER WRITTEN I/O DRIVERS. 

* 6502 FORTH Uses CASSETTE FOR THE SYSTEM MASS STORAGE DEVICE 

* CASSETTE READ/WRITE ROUTINES ARE BUILT IN (INCLUDES HYPER- 
TAPE). 

* Q2 OP-WORDS ARE BUILT INTO THE STANDARD VOCABULARY. 

* EXCELLENT MACHINE LANGUAGE INTERFACE. 

* 6502 FORTH 1S USER EXTENSIBLE. 

* 6502 FORTH 1S A TRUE IMPLEMENTATION OF FORTH ACCORDING 
TO THE CRITERIA SET DOWN BY THE FORTH INTEREST 


$90.00 
Pius S&H 4,00 


Cue VSER MAWVAL ASSUMES some 
PIEVIOUS KPOWLEDCE OF fohTr/. 


\F YOU HIE Ne JEM WHET Paty 
“4S Add AMOUT— sep-o AM’ SAS E 
(Buswess size) dng 


ASK Fok A "FORTH Braliockhhay * 


COMPLETE ANNOTATED SOURCE LISTING 
C #2000 veksion) 









USER MANUAL (CREDITABLE TOWARDS SOFTWARE 
PURCHASE ) $15.00 


plus S&H 1.50 


* ae AIM & SYM VERSIONS TO BE AVAILABLE 
SPECIALIZED VOCABULARIES CAN BE DEVELOPED FOR SPECIFIC 
APPLICATIONS. 6502 USER NOTES v 
* 6502 FORTH resipes IN 8K oF RAM STARTING AT $2000 AnD Pop 33093 dere 
CAN OPERATE WITH AS LITTLE AS 4K OF ADDITIONAL N. ROYALTON, OHIO en? rat 
CONTIGUOUS RAM, 44133 Sok 








KIM SOFTWARE 
N CASSETT 





with the purchase of PET—CBM 


oc aieaiunneeahamenamennenumtagemeaenmen ol } 
item!!! FREE 


MERCH. 
PET 16K Large Keyboard $ 995 $130 
PET 32K Large Keyboard $1295 $170 
PET 8K $ 795 $100 
PET 2040 Dual Disk (343K) $1295 $170 
PET 2023 Printer (pres feed) $ 849 $110 
PET 2022 Printer (trac feed) $ 995 $130° 


FREE! up to Ss] 70 in merchandise 






















housing with labels: 
C-10 10/5.95 50/25.00 100/48.00 
C-30 10/7.00 50/30.00 100/57.00 
WRITE FOR 6502 AND S-100 PRODUCT LIST 
115 E. Stump Aoad 


AB Computers Montgomeryville, PA 18936 
(215) 699-8386 








KIM-1 $159 ad sa0 tor Power Suopiy) SYM-1 $222.00 so aati gc ee get arte ne hia ; 
21141 450ns 4K Static RAM S90 $55 ($4000-$4920) includes instructions, 
9716 EPROM (5 Volt) 38.00 cassette and complete source list-— 
; eg ; : : peas 
6550 RAM (for 8K PET) 12.90 nandlieg (eee FOCAL section tz tals 
6502 Microprocessor Chip 9.75 issue for more info)Cworks with ei- 
6522 VIA 975 ther verison of FOCAL). $37.50 
6520 PIA 5.50 ms) 
PET 4 Voice Music Board (MTUK-1002-2 $ 49.00 sate ne a hen vey 
usic Software (K-1002-3C) for PET $ 19.00 isti 
Microchess 2.0 for PET or APPLE 47:90 BASEBALL source listing (16 pages) 5.00 
PET Word Processor - Machine Language 24.00 KIMATH (specify $2000 or $F800 version) 
3M "Scotch" 8 disks ay 10/831 (includes manual erata sheet) 12.00 
3M “Scotch” 5” diskettes 10/$35 1 i 
Verbatim 5” diskettes 10/827 Sheet drag neon ree ae 
Cassettes (a// tapes guaranteed) DISASSEMBLER (from issue #14) 5.00 
Premium quality, high output lownoise in 5 screw ; 
BANNER (from issue #14) 5.00 


These cassettes are original dumps, not cop~ 
ies, made with top quality 5~screw housing cas- 
settes in the HYPERTAPE X 3 tape speed, Thirty 
seconds of sync characters precede the program to 
enable you to tune up your recorder or PLL. 


Payment must be in U.S. Funds, Overseas 
customers please include $1.00 extra per cassette 
for extra postage. 


6502 USER NOTES, POB 33093, N. Royalton 
44133 
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INC. 





BOX 120 
ALLAMUCHY, N.J. 07820 
201-362-6574 


HUDSON DIGITAL ELECTRONICS INC. 
THE HDE MINI-DISK SYSTEM 





The HDE DM816-MD1 Mini Disk System is the per- 
ipheral you have been waiting for. No longer bounded 
by long and unreliable cassette saves and loads, your 
computer becomes a sophisticated system for program 
development or general purpose use. With the HDE 
Mini-Disk you load and save programs in seconds, not 
minutes or hours. And, since al! transfers to and from 
the Mini-Disk are verified for accuracy, the data will be 
there when you need it. 

The HDE DM816-MD1 Mini-Disk has been “systems” 
engineered to provide a complete and integrated capa- 
bility. Software and hardware have been built asa team 
using the most reliable components available. The sys- 
tems software includes the acclaimed and proven 
HDE File Oriented Disk System and Text EDitor, requir- 
ing only 8K for the operating software and overlay area. 
Systems expanding programs available include the 


HDE PRODUCTS. BUILT TO BE USED WITH CONFIDENCE. 





VERSIONS 


KIM 
TIM 
AIM 65 - 4th Qtr. ’79 
SYM - 1st Qtr. 80 


SINGLE DRIVE 
DUAL DRIVE 


$ 795.00 
$1195.00 


Complete with all hardware. 
interconnecting cables, FODS, 
text editor and user and instal- 
lation manuals. 


two-pass HDE assembler, the Text Output Processing 
System and Dynamic Debugging Tool. Hardware in- 
cludés a Western Digital 1771 based controller in a 
state-of-the-art 4% x 642" card size, Shugart SA 400 drive 
and the Alpha power supply. 

The storage media for the DM816-MD1 is the stan- 
dard, soft sectored 5%” mini diskette readily available 
at most computer stores, and HDE has designed the 
system so that the diskettes rotate only during disk 
transactions, favorably extending media life. A disk 
formatter routine included with the system, formats the 
diskettes, verifies media integrity by a comprehensive 
R/W test and checks drive RPM. Additional utilities 
provide ascending or descending alpha numeric sort, 
disk packing, text. output formatting, file renaming, 
file addressing and other capabilities. 














AVAILABLE DIRECT OR FROM THESE FINE DEALERS: 





LONG ISLAND 
JOHNSON COMPUTER: PLAINSMAN MICROSYSTEMS ARESCO COMPUTER GENERAL STORE LONE STAR ELECTRONICS 
Box 523 Box 1712 P.O. Box 43 103 Atlantic Avenue Box 488 
Medina, Ohio 44256 Auburn, Ala. 36830 Audubon, Pa. 19407 Lynbrook, N.Y. 11563 Manchaca, Texas 78652 
216-725-4560 800-633-8724 215-631-9052 516-887-1500 612-282-3570 











